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PREFACE 


This publication provides the IBM 1130 System user 
with the information required to operate and maintain 
the IBM 1130 Disk Monitor programming system. It 
is recommended that the user familiarize himself 
with the terms contained in the Glossary at the back 
of this manual. It is important that these terms be 
understood in the context of the Monitor system. 

All hexadecimal addresses in this manual are 
shown in the form /XXXX. 

Symbolic addresses rather than absolute addresses 
are used throughout this manual. Certain constants 
are also denoted symbolically. A table of equivalences 
is provided in Appendix H, Resident Monitor. 


$XXXX All symbolic labels whose first char- 
acter is a dollar sign are found in the 
Resident Communications Area 
(COMMA) 

#XXXX All symbolic labels whose first char- 
acter is a pound sign are found in the 
Disk Communications Area (DCOM). 
@XXXX All symbolic labels whose first char- 
acter is a commercial at sign are con- 
sidered to have absolute values, i.e., 
@HDNG refers to the page heading 
sector (sector 7) and thus has a value 
of 7. 


NOTE: The number sign (#) and commercial at 
sign @ are not included in the 1403 Printer or 1132 
Printer character set, therefore, an equal sign ( =) 
replaces the # and an apostrophe (') replaces the 
@ in the printer listings. 


MINIMUM SYSTEM CONFIGURATION 


The minimum system configuration required to oper- 
ate the 1130 Disk Monitor system is as follows: 
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IBM 1131 Central Processing Unit, Model 2, with 
4096 words of core storage, and one of the following. 
input/output devices 


IBM 1442 Card Read Punch, Model 6 or 7 


IBM 2501 Card Reader, in combination with an 
IBM 1442 Card Punch, Model 5, or an IBM 1442 
Card Read Punch, Model 6 or 7 


IBM 1134 Paper Tape Reader in combination with 
an IBM 1055 Paper Tape Punch. 


PUBLICATIONS 


The following publications will assist the user in 
utilizing the Monitor system. 


IBM 1130 Functional Characteristics (Form 
A26-5881) 


IBM 1130 Computing System Input/Output Units 


(Form A26-5890) 


IBM 1130 Assembler Language (Form C26-5927) 


IBM 1130/1800 Basic FORTRAN IV Language 
(Form C26-3715) 


IBM 1130 Subroutine Library (Form C26-5929) 


IBM System/360 Operating System and 1130 Disk 


Monitor System: System/360 1130 Data Trans- 
mission for FORTRAN 


(Form C27-6937) 


IBM System/360 Operating System and 1130 Disk 
Monitor System: User's Guide for Job Control 
From an IBM 2250 Display Unit Attached to an 


IBM 1130 System 
(Form C27-6938) 


new editions or Technical Newsletters, Changes are continually 
made to the specifications herein; any such changes will be re- 
ported in subsequent revisions or Technical Newsletters, Requests 
for copies of IBM publications should be made to your IBM repre- 
sentative or to the IBM branch office serving your locality. 


A form is provided at the back of this publication for reader ‘s comments, 
If the form has been removed, comments may be addressed to IBM 
Nordic Laboratory, Technical Communications, Box 962, 181 09 Lidings, 
Sweden. 
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The 1130 Disk Monitor System provides for the continu- 
ous operation of the 1130 Computing System, with mini- 
mal set-up time and operator intervention, in a stacked 

| job environment. The Monitor system consists of eight 
distinct but interdependent elements -- Supervisor, Disk 
Utility Program, Assembler, FORTRAN Compiler, 

| RPG compiler, Core Load Builder, Core Image Loa- 
der, and System Library. 


The Supervisor performs control functions for the 
Monitor system and provides the linkage between user 
programs and Monitor programs. 

The Disk Utility Program (DUP) is a group of IBM- 
supplied programs that performs operations involving 
the disk such as storing, moving, deleting, and dumping 
data and/or programs. 

The Assembler converts source programs written in 
Assembler language into machine-language object pro- 
grams. 
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The FORTRAN Compiler translates source programs 
written in 1130 Basic FORTRAN IV language into 
machine-language object programs. 

The RPG Compiler translates program written in 
1130 RPG language into machine-language programs, 


The Core Load Builder constructs core image pro- 
grams from mainline object programs. The main- 
line programs and all necessary subprograms are 
converted into Disk Core Image format from Disk 
System format, and the resultant core load is built 
for immediate execution or for storing for future 
execution. 

The Core Image Loader serves as both a loader 
for core loads and as an interface for the Monitor 
programs. 

The System Library is a group of disk-resident 
programs that perform I/O, data conversion, 
arithmetic, disk initialization, and maintenance 
functions. 
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The operating procedures for readying the system I/O 
units are described below. Following these procedures 
are instructions to the operator on the various ways of 
actually getting data in and out of the system and how 
these methods are utilized by the 1130 Disk Monitor 
Programming System. 


READYING THE IBM 1130 COMPUTING SYSTEM 


This section describes the basic operator actions re- 
quired to ready the IBM 1130 Computing System for 
operation. The paragraphs on readying the I/O units 
should be sufficient to allow the operator to prepare 
the units for selection by the system. Where neces- 
sary, illustrations have been provided to supplement 
the text. 

Additional information regarding 1130 system and 
unit displays and operator functions can be found in 
the following publications. 


IBM _ 1130 Functional Characteristics (Form A26- 
5881) 


IBM 1130 Input/Output Units (Form A26-5890) 
IBM 2501 Card Reader, Models Al and A2 - Com- 


ponent Description and Operating Procedures 
(Form A26-5892) 

IBM Disk Pack Handling and Operator Procedures 
(Form A26-5756) 


1131 Central Processing Unit 


Most operator action will occur at the console of the 
1130 system. This console, as well as three I/O 
devices -- the Keyboard/Console Printer, the console 
entry switches, and a single disk storage drive -- are 
all located in or on the 1131 CPU. 


System Power On. When the 1131 POWER switch is 
turned on, the following console operator panel lights 
will be on: DISK UNLOCK (no cartridge in single 
disk storage drive) and FORMS CHECK (if there is 
no paper in the Console Printer). If any other oper- 
ator panel lights are on, press the RESET key. 

To ready the Console Printer, perform the follow- 
ing steps: 


1. Open the Console Printer top cover. 

2. Pull the paper pressure rod forward (the rod with 
three rubber rollers that leans against the platen). 
If the paper is to be pin fed, this rod should remain 
in this position. 
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3. Lift up on the left and right platen pin feed pressure 
plates. 

4. Set the paper release lever in the forward position. 
This lever is located on the top right rear corner 
of the Console Printer. If the paper is to be pin 
fed, this lever should remain in this position. 

5. Feed the paper in from the rear and guide it under 
the platen. Make sure that the paper lies over and 
closes the forms check microswitch. This will 
turn off the FORMS CHECK light on the console 
operator panel. 

6. Lay the paper back across the top of the Console 
Printer and guide the paper so that the holes line 
up with the pin feeds. 

7. Close the pin feed pressure plates. 

8. Looking directly down into the Console Printer, 
set the left and right margins. The margin set- 
tings can be read on the scale across the front of 
the unit. 

9. Close the top cover. 

10. Press CARRIER RETURN. 


The Console Printer is now ready to be selected. 
To ready the single disk storage drive, perform the 
following steps. 


1. Open the single disk storage access cover located 
at the front of the 1131 (to the right of the console). 
The cover swings open to the right. 

2. Grasp the handle of the access release mechanism 
and pull out and down. 

3. Pick up the cartridge and, holding the cartridge 
with the IBM name towards you and on the left, 
insert the cartridge into the slot. 

4. When the cartridge is seated, raise the access 
release handle to lock the cartridge into place. 

5. Turn the DISK switch (leftmost switch on the panel 
beneath the cartridge enclosure) to the ON position. 
As the disk starts to turn, the DISK UNLOCK light 
on the console operator panel will go out. 

6. Close the access cover. 


When the drive comes up to speed (approximately 
90 seconds), the DISK READY indicator on the con- 
sole operator panel will turn on. The single disk 
storage drive is now ready to be selected. 


1442 Model 6 and 7 Card Read Punch Ready Procedure 


Pre-conditions. POWER ON light on, CHECK light off, 
CHIP BOX light off, stacker not full, and covers closed. 

When the system is first powered up, it is good 
practice to press the NPRO key to ensure that no cards 
are in the feed path. 
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Readying the Card Read Punch. When all pre-conditions 
are met, place the cards to be processed in the hopper, 
face down, 9-edge first, and press reader START. 
When the first card is positioned at the read station, 

the READY light will turn on. The card read punch 

is now ready to be selected. 


1442 Model 5 Card Punch Ready Procedure 


Pre-conditions. POWER ON light on, CHECK light 
off, and ATTENTION light off. 

When the system is first powered up, the HOPPER 
check light is lit. Press NPRO to turn this light off. 
This action ensures the card path is clear. 


Readying the Card Punch. When all pre-conditions 

are met, place blank cards in the hopper, face down, 

9-edge first, and press punch START. Two card feed 
ycles are taken and the first card is registered at 

he punch station. When the punch READY light turns 
yn, the card punch is ready to be selected. 


2501 Card Reader Ready Procedure 


Pre-conditions. POWER ON light on, READ CHECK 
light off, FEED CHECK light off, and ATTENTION 
light off. 

When the system is first powered up, the FEED 
CHECK light is lit. Press NPRO to turn this light 
off. This action ensures that the card path is clear. 


Readying the Card Reader. When all pre-conditions 


are met, place the cards to be processed in the hop- 
per, face down, 9-edge first, and press reader 
START. When the first card is positioned at the 
pre-read station, the READY light will turn on. The 
card reader is now ready to be selected. 


1134 Paper Tape Reader Ready Procedure 


Pre-conditions. System power on, 
Readying the Paper Tape Reader. Raise the lever 
located at the top right side of the read head (see 
illustration below). Load the reel containing the pro- 
gram tape on the right hand drive and lock the reel in 
place. The tape must be loaded so that the three- 
hole side is nearest the operator. With both tension 
arms in the up position, feed the tape across the 
read head and position the tape on the drive sprocket. 
Position a program tape so that a delete code (all 
punches) beyond the program ID punched in the leader 
is under the read starwheels. 


Position a tape without a leader (or when starting in 
the middle of a tape) so that the first character position 
to be read is one position to the right of the read star- 
wheels. 

Lower the lever on the read head, thus bringing the 
read starwheels in contact with the tape. Wind the 
leader on the take-up reel and let down the tape tension 
arms. 


Read Head 


Take-up Reel Supply Reel 





Tape Tension Arms 


The paper tape reader is now ready to be selected. 


1055 Paper Tape Punch Ready Procedure 


Pre-conditions. System power on. 


Readying the Paper Tape Punch. 


1. Place a reel of tape in the supply pan so that the 
tape feeds out toward the punch die (see illustration 
below). 

2. With the punch die facing forward (unit name plate at 
the front), pivot the tape pressure lever (right side 
of die) up and to the right. 

3. Feed the tape from the supply pan over the first 
tape guide, under the tape tension lever, and slide 
the tape in under the punch die, tear guide, and 
tape pressure lever. 

4, If the punch has a take-up reel, guide the tape over 
the side of the unit, over the outside of the side 
guide, and back up towards the front of the unit. 

5. The tape now makes a half turn towards the outside 
and comes up and over the end guide. 

6. The tape is then brought up and over to the left and 
wound over the top of the take-up reel. 


Supply Pan 


P * 
Tape Tension Lever unch Die 





Tape Pressure 
Lever 


Take-up Reel 


Tear Guide 


After the tape is loaded, a leader (all delete codes) 
may be made by first pressing and holding the DELETE 
key. Now press the FEED key and hold until a leader 
of sufficient length has been punched. Release the 
FEED key before releasing the DELETE key. The 
paper tape punch is now ready to be selected. 


1132 Printer Ready Procedure 


Pre-conditions. POWER ON light on and MOTOR 
switch on. The FORMS CHECK light will be on if 
there are no forms in the printer. 


Readying the 1132 printer. To load the forms into 


the printer: 


1. Raise the top cover and disengage the PLATEN 
CLUTCH (set it to OUT). This knob is located 
on the right side of the print carriage (see illus- 
tration below). 

2. Turn the outside knob on the right end of the 
carriage to ensure that the carriage is free. 

3. Remove the spring loaded outfold guide bar (the 
bar across the bottom front of the forms tractor, 
directly behind the print wheels). 

4, Open the left and right tractor pressure plates. 

5. Now feed the forms from the rear of the printer 
under the form stop bar (three levers) and down 
under the tractor. 


6. Use a rocking motion to feed the paper under the 
platen (if necessary raise the paper tension control 
guide located in the center of the tractor). 

7. When the paper appears in front of the platen, grasp 
it firmly and pull it up so that it lies evenly across 
the tractor. 

8. Place the holes in the paper on the left and right 
tractor pins and close the tractor pressure plates. 

9. Reinsert the outfold guide bar. 

10. Using the knob at the right end of the carriage, feed 
the paper until a crease between two sheets appears 
just above the print wheels. 


To load the carriage control tape into the printer: 


1. Raise the carriage cover directly above the platen 
clutch knob. 

2. Raise the brush holder by pulling the lever on the 
right side towards you. 

3. Insert a carriage control tape (channel one to the 
left) and close the brush holder. 

4. Close the carriage cover. 


Tractor Assembly Form Stop Bar 







Tractor Guides 
Paper Tension Control Guide 


Carriage Tape 


Platen Clutch 


Platen Knob 
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Press the CARRIAGE RESTORE key on the 1132 
operator's panel. Engage the platen clutch (set to 
IN) and close the printer top cover. Press printer 
START. When the READY light comes on, the 1132 
printer is ready to be selected. 
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1403 Printer Ready Procedure 


Pre-conditions. System power on. The END OF 
FORMS light will be on if there are no forms in the 
printer. 


Readying the 1403 Printer. To load the forms into 
the printer: 


1. Raise the printer cover and set the feed clutch 
selector knob to neutral. This knob is located 
on the right side of the print unit (see illustra- 
tion below). 

2. Unlock the print unit by pulling back on the re- 
lease lever located on the left side of the unit. 
The print unit will swing out to the right. 

3. Open the upper and lower left and right tractor 
guides. 

4, Lift the forms up from their position below the 
front of the printer and lay them back across the 
arched rack at the top of the printer. 

5. Line up the holes in the paper with the tractor 
pins and close all four tractor guides. 

6. Close the print unit and lock the print unit re- 
lease level. The ribbon drive will activate when 
the print unit is closed. 

7. Using the PAPER ADVANCE knob located at the 
right end of the print unit, advance the paper until 
a crease between two forms is about 1/2 inch 
above the print position indicator bar on the 
print unit. 


To load the carriage control tape in the printer: 


1. Raise the carriage brush holder by pulling down 
on the lever on the right side. The carriage 
brush holder is located to the right and slightly 
above the print unit (see illustration). 

2. Insert the carriage tape (channel one to the left) 
and close the brush holder. 

3. Set the feed clutch selector knob to 6 or 8 lines 
per inch, whichever is desired. 

4. Close the printer cover. 


Press the CARRIAGE RESTORE key on the 1403 
operator's panel. Continue to restore until sufficient 
paper has fed over the top arch to extend down the 
back of the printer. Open the rear cover of the printer 

-and ensure that this paper has fed down between the 
‘forms stacker guide and the printer. If the paper has 
fed properly, the rollers on the forms stacker guide 
will keep a constant downward pull on the paper. Close 
the back cover. 


Carriage Tape 
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Press CHECK RESET and printer START on the 
operator panel. When the PRINT READY light comes 
on, the 1403 printer is ready. Set the ENABLE/ 
DISABLE switch on the 1133 to the ENABLE position 
(READY light on). The 1403 Printer is now ready to 
be selected. 


2310 Disk Storage Ready Procedures 


Pre-condition, System power on, CARTRIDGE UN- 
LOCKED lights on the 2310 operator's panel on. 


Readying the 2310 Disk Storage Drive. 


1. Open the front door of the disk drive. 

2. Grasp the handle of the access release mechanism 
of the drive to be loaded (drive 1 or 3 on top, 2 or 
4 on the bottom) and pull out and down. 


3. Pick up the cartridge and, holding the cartridge 
with the IBM name towards you and on the left, 
insert the cartridge into the slot. 

4. When the cartridge is seated, raise the access 
release handle to lock the cartridge into place. 
If desired, load the other drive on the 2310 disk 
storage unit. 


Close the front door of the disk storage unit. Turn 
on the START/STOP switch for the desired drives. 
The CARTRIDGE UNLOCKED lights will go out when 
the drives start to turn. When the drives come up to 
speed (approximately 90 seconds), the indicators 
showing the drive numbers will light, thus showing 
that the heads are loaded and the drives are ready. 

When the drives are required by the system, set 
the ENABLE/DISABLE switches on the 2310 disk 
storage drives and on the 1133 to the ENABLE position 
(1133 READY light on). The 2310 disk storage drives 
are now ready to be selected. 


1627 Plotter Ready Procedure 


Pre-conditions. System power on. 


Readying the 1627 Plotter. Load the chart paper using 
the following procedure. 


1. Ensure the 1627 Power switch is OFF (1627 power 
on indicator lamp out). 

2. Remove the pen assembly, if installed, by loosen- 
ing the knurled knob at the bottom of the pen holder 
and lifting the assembly out of the carriage. 


Caution 


Use care when handling the pen assembly. This 
assembly is manufactured to close tolerances for 
optimum performance. 


3. Rotate the right rear chart spool by hand until the 
drive key is pointing upward. 

4. Hold the new roll of chart paper so that the key 
slot in the core is pointing upward. Place the 
roll against the spring-loaded left rear idler spool 
and force the spool to the left. 

5. Lower the paper roll into the paper well and slide 
the right end onto the drive spool. Make certain 
the drive key engages the key slot in the core. 
The paper should feed out from under the roll 
and over the drum (see illustration). 

6. Install a paper roll core on the front spool below 
the drum, in the same manner as with the paper 
roll. 


7. Pull a short length of paper off the roll, slide the 
end under the carriage rods, under the tear bar, 
behind the core, and fasten it to the front side of 
the core with two or three short pieces of cello- 
phane tape. Wind one or two turns of paper onto 
the core. Make certain the drum sprockets are 
properly meshed with the sprocket holes on both 
sides of the paper. 

8. Reinstall the pen assembly in the carriage. 

9. Turn the 1627 power switch to ON. The 1627 
power on indicator will come on. 


NOTE: The pen is down when the power is off; there- 
fore, the pen assembly should be installed with the 
carriage over an area outside the "recording area". 

If the pen does not raise when power is turned on, 

turn the pen switch to DOWN, then to UP. 


) Supply Roll 
Tear Bar \ 


Take-y 
Roll e )) 


With the pen in the UP position, use the drum (x axis) 
and carriage (Y axis) controls to position the pen for the 
first plot. The 1627 plotter is now ready to be selected. 


1231 Optical Mark Page Reader Ready Procedure 


Pre-conditions. System power on, RESET light on, 
and READ light off. SYSTEM STOP light on if the 
CPU is stopped. 


Readying the Optical Mark Page Reader. Place the 
data sheets in the hopper with the side to be read facing 
up and the top edge positioned to feed first. Set the 
FEED MODE switch to ON-DEMAND. The settings of 
the other selector switches on the operator console are 
dependent on the data being read. 

Press PROGRAM LOAD on the 1231 operator's 
console. This action clears the delay line and conditions 
the machine for program loading. The PROGRAM LOAD 
light turns on. Press 1231 RESET. This causes the 
hopper to raise to the ready position. The RESET light 
turns off and the 1231 START light turns on. Press 
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1231 START. The first data sheet in the hopper is 
fed through the 1231, loading the delay line. The 
first data sheet is now in the stacker, The PRO- 
GRAM LOAD light turns off. Press 1231 START. 
The 1231 START light turns off. 

With all lights off on the 1231 operator's console 
(the SYSTEM STOP light may be on), the 1231 op- 
tical mark page reader is ready to be selected. 


USING THE IBM 1130 WITH THE MONITOR SYSTEM 
When all I/O units required for a job are on-line 

and in a ready condition, the user may proceed as 
follows. 


Loading a Program from Card or Paper Tape 


On the Console: 


© Press IMM STOP (press PROGRAM STOP if 
the Monitor system is running). 

® Press RESET. 

® Check that the console Mode switch is set to 
RUN mode, 

® With the reader wired for IPL ina ready state, 
press PROGRAM LOAD (if the system has a 
2501 and a 1442-6 or -7, ensure that the 1442 
is not ready). The first record (usually a 
loader) is read into core starting at location 
zero. Instructions on this record tell the sys- 
tem what operation is to be performed next, 
usually the loading of more records from the 
input device. 

® When a card reader goes not ready, press 
reader START to read in the last card and pass 
control to the loaded program. This action is 
not required with paper tape input. 


Altering or Displaying the Contents of a Selected 
Core Location Using the Console Entry Switches 


® With the system stopped, set the console Mode 
switch to LOAD, 

® Set the console entry switches to the desired 
four-character hexadecimal core address. 
Switches 0-3 constitute the first hexadecimal 
character, 4-7 the second, etc. 

@¢ Press LOAD JAR (the selected address is dis- 
played in the IAR). 


To display the contents of the address: 
® Set the console Mode switch to DISPLAY, 
Ad Press PROGRAM START. 


The contents of the selected location is displayed in 
the Storage Buffer Register. Succesive pressing of 
the PROGRAM START key will display consecutive 
core locations. 
To alter the contents of the address: 

Set the new data word in the console entry 

switches. 

Set the console MODE switch to LOAD. 

Press PROGRAM START. 


To return to system operation: 
Set the console Mode switch to RUN 
Press PROGRAM START. 


NOTE: Ata Monitor system WAIT, the address of 
instruction causing the WAIT is at the address dis- 
plaved in the IAR minus 1, 


Reading the Console Entry Switches Under User 
Program Control 


The setting of the console entry switches can be 
read by an XIO read instruction at any time during 
the execution of a user-written stored program. 
The device code of the instruction is set to 00111. 


Entering Programs from the Keyboard Under Mon- 
itor System Control 


A single Monitor control record or an entire pro- 

gram including all required control records and 

data records can be entered from the 1130 Key- 

board using the Monitor System. Control is passed 

to the Keyboard when a //TYP Monitor control 

record is read from the principal input device. 
Control is returned to the principal input device 

when a // TEND record is entered from the keyboard. 


Keyboard Operation 

When the //TYP Monitor control record is read, 
the Console Printer performs a carrier return and 
the KB SELECT light on the Keyboard operator's 
panel turns on. The system is now ready to accept 
input from the keyboard, 


Enter all control records in the correct format. 
Use the space bar for blanks. The records are printed 
on the Console Printer as they are entered. Press 
EOF to end each record. An NL (new line) character 
is entered, the carrier is restored to a new line, and 
the keyboard is reselected. This sequence of events 
continues until a // TEND record is entered. 
Pressing EOF then returns control to the principal 
input device. 

Up to 80 characters can be entered in each record. 
If an error is made when entering a record from the 
Keyboard, the user can elect to backspace and correct 
the entry or re-enter the entire record. 


Backspace. When the backspace key (~) is pressed, 
the last graphic character entered is slashed and the 
address of the next character to be read is decremented 
by +1. If the backspace key is pressed twice consecu- 
tively, the character address is decremented by +2, 

but only the last graphic character is slashed. For 
example, assume that *DELET has been entered and 
the backspace key is pressed three times. The next 

' graphic character replaces the L, but only the T is 
slashed. If the characters FINE are used for replace- 
ment, the paper would show *DELEZFINE, but *DEFINE 
would be stored in the buffer. 


Re-entry. When the ERASE FIELD key is pressed, a 
character interrupt signals the interrupt response sub- 
routine that the previously-entered Keyboard record 
is in error and is to be re-entered. The subroutine 
prints two slashes on the Console Printer, restores 
the carrier to a new line, and prepares to replace the 
old record in the I/O area with the new record. 

The new record overlays the previous record, charac- 
ter by character. Blanks are placed in the buffer fol- 
lowing the NL character which terminated the new 
record. 


Console Functions While Under Monitor System Control 


PROGRAM STOP Key. Pressing this key causes a 
level 5 interrupt and an entry to the PROGRAM STOP 


key trap providing there are no user-written device 
subroutines associated with level 5 currently in core. 
The trap consists of a WAIT and a branch. When the 
PROGRAM START key is pressed, the interrupt level 
is turned off and execution resumes following the point 
of the level 5 interrupt. 

The PROGRAM STOP key trap allows the user to 
stop the entire 1130 system with the ability to continue 
execution without disturbing the system status or the 
contents of core storage. 

If a higher interrupt level is being serviced when 
the PROGRAM STOP key is pressed, the PROGRAM 
STOP key interrupt is masked until the current opera- 
tion is completed. 


INT REQ. Pressing the Interrupt Request key causes 
the current job to be aborted. Control is returned to 
the Supervisor, which then searches for the next JOB 
record in the input stream, The user may program 
this key differently if he desires. 


IMM STOP. Do not press IMM STOP when running under 


Monitor system control. The contents of a system cart- 
ridge can be destroyed, necessitating a regeneration 
of the system, 


Manual Dump of the Monitor System 


If a problem occurs during the execution of a core load 
and the user desires to dump core storage, the dump 
entry point in the Skeleton Supervisor can be entered 
by a manually executed transfer to location zero or 

to the dump entry entry point plus one (location 
$DUMP+1). A dump of the entire contents of core 
storage is given in hexadecimal and the dump pro- 
gram (see Supervisor Core Dump Program) exe- 
cutes a CALL EXIT thereby terminating the execu- 
tion of the core load in progress. 

If the dump was necessitated by the introduction of 
bad data in a Monitor system program, the system may 
loop rather than perform the dump. If this occurs when 
DISKZ is inuse, the user must manually clear $IOCT 
and $DBSY before reinitiating the dump. 
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Before describing the contents of a Monitor system and 
non-system cartridge, it is necessary to briefly des- 
cribe the steps to initialize the cartridges for use on 
the system. 


e When the Monitor system is loaded by the System 
Loader onto a disk cartridge that has been initialized 
by the Disk Cartridge Initialization Program (DCIP), 
that cartridge becomes a system cartridge. 


e Placement of a system cartridge on any physical 
drive readies the system for the user-initiated cold 
start procedure. The cold start establishes the 
physical drive on which the system cartridge has 
been placed as logical drive 0, which is, by definition, 
the system drive. The system cartridge on logical 
drive 0 is then called the master cartridge. 


e@ The other cartridges on the system (also initialized 
by DCIP) are called non-system cartridges. If 
desired, the IBM system can then be loaded on any 
of these cartridges, thus making them system 
cartridges. However, once a cold start has been 
performed and a master cartridge established, all 
other cartridges, system or non-system, are 


called satellite cartridges, 


The organization of programs and areas on system 
and non-system cartridges is described and illustrated 
below. 


Sector @IDAD of any Cartridge 


This sector, illustrated in Figure 1, contains the defec- 
tive cylinder table, the cartridge ID, the cartridge copy 
code, a reserved area, and an Error Message program. 
The defective cylinder table contains the addresses 
of the first sector on any cylinders on the cartridge 
that are not capable of accurately storing data. The 
Monitor system can be operated from a cartridge with 
up to 3 defective cylinders. 
The cartridge ID is a hexadecimal number in the 
range /0001 - /7FFF that uniquely identifies the 
cartridge. 


DISK ORGANIZATION 


The copy ID (updated by DCIP or COPY) gives the user 
the ability to identify any given copy of a system or non- 
system cartridge, Each time a copy is made, word 5 
(initially 0) is incremented by one, i.e. , word 5 of the 
copy is always one greater than the source. 

The reserved area of sector @IDAD is used by the 
System Loader when the IBM System is loaded on the 
cartridge (see Figure 2). 

Following initialization by DCIP (or DISC), an error 
message and the program that causes it to print are 
stored in sector @IDAD. The error message -- NON- 
SYST. CART. ERROR -- is printed if an attempt is 
made to cold start a cartridge that is not a system 
cartridge. This message and the program that prints 
it are overlaid by the Cold Start program when the 
Monitor system is loaded on the cartridge. 


DCYL (Defective Cylinder Table) 
CIDN (Cartridge ID) 

COPY (Copy Code) 

Reserved 

DTYP (Disk Type) 















Error Message 
and Error Message 
Program 







269 270 319 


Words: 0 } 2 3 4 5 6 7 


Contents of Sector @IDAD after Initialization by 
DCIP or DISC 


@ Figure 1, 


DCYL (Defective Cylinder Table) 
CIDN (Cartridge ID) 

COPY (Copy Code) 

Reserved 


DTYP (Disk Type) 


Words: 29 30 








DISKZ (this copy of 
DISKZ is used only 
during the cold start 
procedure. ) 








269 270 319 


@ Figure 2. Contents of Sector @IDAD after the IBM System is 
on Disk 


Disk Organization 11 


SYSTEM CARTRIDGE 


The system cartridge is divided into three logical areas, 
which are illustrated in Figure 3. These areas are the 
IBM System Area, the User Area, and the Working 
Storage. In addition, the user may define a Fixed Area 
on disk for the purpose of storing programs and/or 

data files into permanent locations so they may be 
referenced by sector address. 


TBM SYSTEM AREA 


During system generation, the IBM system decks are 
loaded on disk by the System Loader. The disk areas 
occupied by the IBM-supplied Monitor programs, and 
the disk areas reserved for the use of these programs, 
are collectively known as the IBM System Area. 

The contents of the IBM System Area are listed below. 


Cylinder 0 


The contents of sector @IDAD have already been 
described (see Figure 2). Sector @DCOM contains 
the Disk Communications Area, which is described 
below (see DCOM). 

Sector @RIAD contains the Resident Image. The 
Resident Image is a copy of the Resident Monitor with- 
out a disk I/O subroutine, that is, it is a reflection of 
COMMA and the Skeleton Supervisor (see Resident 
Monitor in the section Supervisor). The Resident 
Image is used to initialize the Resident Monitor during 
a cold start. 


System Device 


~~ 
ID an ~ 
Cold 
Start Resident Reload } Page 
Prog.|DCOM]| Image | SLET | Reserved| Table {Heading 
0 1 2 3,4 5 6 7 


1, Can be deleted from the system by the user 

2. Present only if a Fixed Area is defined for this cartridge by the user 

3, Optionally defined by the user 

4, May not be deleted by the user from a system cartridge. 

5. Initially contains only the System Library; user-written programs may be added 
6. Optional Monitor program 


@Figure 3. Layout of a System Cartridge 
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The System Location Equivalence Table (SLET) re- 
sides on sectors @SLET and @SLET+1. SLET is com- 
posed of an identification number, core loading address, 
word count, and sector address for every phase of every 
Monitor program. 

Sector 5 is reserved. 

Sector @RTBL contains the Reload Table, which is 
used by the System Loader during a program reload and 
by the Disk Utility Program (DUP) when deleting the 


| Assembler, FORTRAN Compiler, or RPG Compiler 


The Reload Table is established during system gene- 
ration when the System Loader reads the Type 81 
System Loader control card, 

Sector @HDNG is used to store the page heading that 
appears at the top of each page printed by a Monitor 
program. 


DCOM 


The Disk Communications area, located in sector 
@DCOM of a system cartridge, contains the param- 
eters that must be passed from one Monitor program 
to another and that must be accessed through disk 
storage (as opposed to core storage). Generally 
speaking, parameters that are not required when 
fetching a link stored in Disk Core Image format are 
found in DCOM. A listing of DCOM is provided in 
Appendix H, Resident Monitor. 

DCOM is divided into two parts. The first part of 
DCOM contains the parameters that are not related to 
all the disk cartridges, for example, the core map 
switch. The second part of DCOM contains the 
cartridge-related parameters: cartridge ID, LET 
address, file protect address, etc. Each of the 


16 16 Subroutines, DISKZ, 1.6 2 3 _ é 
Cyl. 0 | DUP | FOR* | ASM?) SUP | CLB DISK1,DISKN CIL | RPG» °ISCRA | FLET” | Fixed Area” | CIB’ | LET | User Area Working Storage 
™ 
Ta 


@ IDAD 0 


@ DCOM 
@ RIAD 
@ SLET 
@ RTBL 
@ HDNG 


NO WD — 


parameters in the second part is in the form of a five- 
word table, one word for the corresponding value for 
each of the five possible cartridges. The five words 

of each table, known as a quintuple, are arranged in the 
order of logical drive numbers; that is, the first is for 
logical drive 0, the second for logical drive 1, etc. 

The parameters for the non-system cartridges are ob- 
tained from the DCOM areas of those cartridges and stored 
in the DCOM on the system cartridge through the use of a 
merge operation. For example, the file protect address 
quintuple on the master DCOM is composed of the file pro- 
tect address from each of the other four logical drives, 
plus its own file protect address. 

The subroutine for performing the DCOM merge op- 
eration is called SYSUP and must be called by the user 
for the purpose of updating the DCOM parameters if 
cartridges are changed during a job (see SYSUP in the 
section System Utility Subroutines). A similar subrou- 
tine is an integral part of the Monitor Control Record 
Analyzer and is executed during JOB processing. 

During the processing of a JOB record, the DCOMs 
of only those cartridges listed on the JOB record are 
merged into the master DCOM. The parameter tables 
for the other drives are cleared to zero. 


DCOM Indicator Words 


In the following paragraphs, ''set'' means that a value 
is stored in the word in question; ''reset'' means that 
it is cleared to zero. 


Working Storage Indicator Word. DCOM contains a 
Working Storage Indicator word for each cartridge on 
the system. The Working Storage Indicator word for 
a cartridge contains the disk block count of any DSF 
program, DCI program, or Data File currently in 
Working Storage on that cartridge. 

The Working Storage Indicator word for a cartridge 
is set (1) at the completion of a DUP operation in which 
information is transferred to Working Storage and (2) 
at the completion of any assembly or successful com- 
pilation, at which time the Assembler, FORTRAN 
Compiler, or RPG Compiler places the assembled/ 
compiled object program in Working Storage, 

The Working Storage Indicator word for a specific 
cartridge is reset 1) following any STORE operation to 
the User Area on that cartridge and 2) following the 
building of a core load that requires LOCALs and/or 
SOCALs. Because the User Area is increased at the 
expense of Working Storage, it is assumed that any 
STORE operation to the User Area overlays a part of 
the Working Storage area with that which was stored. 
Therefore, the Working Storage Indicator word is reset. 


Format Indicator Word. DCOM contains a Format 
Indicator word for each cartridge on the system. The 


Format Indicator word for a cartridge indicates the 
format of any DSF program, DCI program, or Data 
File currently in Working Storage on that cartridge. 
The Format Indicator word for a cartridge is set 
and reset under the same conditions as the Working 
Storage Indicator word for the same cartridge. | 


Temporary Mode Indicator Word. The Temporary 
Mode Indicator word in DCOM is set by the Supervisor 
when temporary mode is indicated by the user in the 


JOB record (see // JOB under Monitor Control Records). 


Table 1 lists DUP operations and any restrictions that 
apply when in temporary mode. The temporary mode 
indicator is set/reset during JOB processing. 


Monitor System Disk Areas 


Following cylinder 0, the IBM System is loaded onto 
disk in the order shown in Figure 3. The individual 
programs are described in the section of this manual 
entitled Monitor Programs; the disk areas are 
described below. 


System Device Subroutine Area, The System Device 


Subroutine Area contains the following components. 


e The subroutines used by the Monitor programs to 
operate the following print devices. 


1403 Printer 
1132 Printer 
Console Printer 


Table 1. Restrictions on DUP Operations in Temporary Mode 


DUMP 
DUMPDATA, DUMPDATAE 
STORE 
STORECI 
STOREDATA, STOREDATAE 
STOREDATAC} 
STOREMOD 
DUMPLET 
DUMPFLET 
DWADR 
DELETE 
DEFINE FIXED AREA 
DEFINE VOID ASSEMBLER 


DEFINE VOID FORTRAN 
DEFINE VOID RPG 








None 








None 








None 
To UA only 
To UA and WS only 
To UA only 



















Not allowed 









None 









None 





Not allowed 







Not allowed 






Not allowed 








Not allowed 







Not allowed 
Not allowed 
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e The subroutines used by the Monitor programs to 
operate the following I/O devices. 
2501 Card Reader/1442 Card Punch, model 5, 6, or 7 
1442 Card Read Punch, model 6 or 7 
1134/1055 Paper Tape Reader/Punch 
Keyboard/Console Printer 


e The I/O character code conversion subroutines used 
in conjunction with the I/O subroutine for the follow- 
ing devices. 

2501 Card Reader/1442 Card Punch 
1134/1055 Paper Tape Reader/Punch 
Keyboard/Console Printer 


e The disk I/O subroutines. 
DISKZ 
DISK1 
DISKN 


All of the subroutines in the System Device Subrou- 
tine Area, except the disk I/O subroutines, are naturally 
relocatable and are intended for use only by Monitor 
programs. 

The disk I/O subroutines are located in this area 
rather than in the System Library because they are 
processed by the Core Load Builder differently than 
those stored in the System Library. 

DISKZ is stored twice on the disk, once in sector 
@IDAD with the Cold Start program, and once in the 
System Device Subroutine Area with DISK1 and DISKN.. 
Cold Start initializes with the DISKZ in sector @IDAD, 
in all other cases, DISKZ is fetched from the System 
Device Subroutine Area. 


Supervisor Control Record Area. The Supervisor 
Control Record Area (SCRA) is the area in which 


Supervisor control records (LOCAL, NOCAL, 

FILES, G2250 and EQUAT) are saved. These records, 
except the EQUAT record, are read from the input 
stream (following an XEQ or STORECI control 

record) and are stored in the SCRA for subsequent 
processing by the Lore Load Builder. The processing 
of the EQUAT record is simular to that of the other 
Supervisor control records, but it is read from the 
input stream following a JOB control record. 


Fixed Location Equivalence Table (FLET). This table 
is a directory to the contents of the Fixed Area for the 
cartridge on which it appears. There is one FLET 
entry for: 

e@ Each program stored in Disk Core Image format 


e Each Data File stored in Disk Data format 


e The padding required to permit a DCI program 
or Data File to be stored on a sector boundary. 
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Each FLET entry specifies the name of the DCI pro- 
gram or Data File, its format, and its size in disk blocks. 
Each cartridge on the system having a Fixed Area 
has a FLET. Regardless of the size of the Fixed Area 
(one cylinder is the minimum requirement), the FLET 

for a cartridge occupies the cylinder preceding the 
fixed Area (a minimum of 2 cylinders of Fixed Area 
may be initially defined. The first cylinder becomes 
FLET). 

The sector address of the first sector of FLET on 
a given cartridge may be obtained from the LET on the 
same cartridge. The last LET header contains this 
sector address. 

A FLET dump is illustrated in Appendix G. 


Core Image Buffer (CIB). The CIB is the area on disk 


in which the Core Load Builder builds any portion of a 
core load that is to reside below location 4096. It is 
also used by the Core Image Loader to save any COM- 
MON defined below location 4096 during the transfer 
of control from one link to the next. 


Location Equivalence Table (LET). The LET ona 
cartridge is a directory to the contents of the User 
Area on that cartridge. There is one LET entry for: 


e Each entry point for each program stored in Disk 
System format 


e Each program stored in Disk Core Image format 
e Each Data File stored in Disk Data format 


e The padding required to permit a DCI program or 
Data File to be stored on a sector boundary. 


Each LET entry specifies the name of an entry 
point, DCI program, or Data File; its format; and 
its size in disk blocks. 

Each cartridge on the system has a LET. However, 
a cartridge has a User Area only if there is an entry 
in the LET on that cartridge other than a dummy entry 
(1DUMY). Ona system cartridge, LET occupies the 
cylinder preceding the User Area. 

COMMA contains the sector address of the first 
sector of LET for each cartridge being used in a given 
job. 

A LET dump is illustrated in Appendix G. 

USER AREA 


The User Area (UA) is the area in which the user can 
store programs in Disk System format or Disk Core 
Image format and/or Data Files in Disk Data format. 
The User Area is defined on any cartridge when the 
cartridge is initialized. However, its size is 0 sectors 
until the first DSF program, DCI program, or Data 


File is stored in the User Area on that cartridge. The 
User Area occupies as many sectors as are required 
to contain the DSF programs, DCI programs, and Data 
Files stored on that cartridge. 

When a DSF program, DCI program, or Data File is 
to be added to the User Area, it is stored at the start 
of Working Storage, that is, immediately following the 
end of the User Area. The area occupied by the new 
DSF program, DCI program, or Data File is then 
incorporated into the User Area, and Working Storage 
is decreased by the size of that area. 

DSF programs are stored in the User Area starting 
at the beginning of a disk block; DCI programs and 
Data Files are stored starting at the beginning of a 
sector. 

The User Area is packed when a DSF program, 

DCI program, or Data File is deleted from the User 
Area; that is, the DSF programs, DCI programs, 
and/or Data Files in the User Area are moved so as 

to occupy the vacancy (the area formerly occupied by 
the deleted DSF program, DCI program, or Data File). 
In packing, DSF programs are moved to the first disk 
block boundary in the vacancy; DCI programs and Data 
Files are moved to the first sector boundary in the 
vacancy. All following DSF programs, DCI programs, 
and Data Files are similarly packed. 

The area gained by packing the User Area is re- 
turned to Working Storage. 


WORKING STORAGE AREA 


Working Storage (WS) is that area on all cartridges 
that is not defined as the User/Fixed Area and, ona 
system cartridge, as the IBM System Area. Working 
Storage is available to Monitor and user programs 
alike as temporary disk storage. It extends from the 
sector boundary immediately following the User Area 
to the end of the cartridge (cylinder 199). 


FIXED AREA 


The Fixed Area (FX) is ‘the area in which the user may 
store programs in Disk Core Image format and/or 
Data Files in Disk Data format if it is desired that 
these programs and Data Files always occupy the same 
sectors. The Fixed Area is optionally defined on any 
cartridge by the use of the DUP operation, DEFINE 
FIXED AREA. This operation is also used to increase 
or decrease the size of the Fixed Area. 

When a DCI program or Data File is stored in the 
Fixed Area, it is stored starting at the beginning of a 
sector. When a DCI program or Data File is deleted 


from the Fixed Area, no packing of the Fixed Area 
occurs. Hence, DCI programs and Data Files in this 
area reside at fixed sector addresses and can be refer- 
enced as such by the user. 


NON-SYSTEM CARTRIDGE 


Figure 4 shows the layout of a non-system cartridge, 
a cartridge that contains no Monitor programs. Such 
a cartridge on multi-drive 1130 systems can be used 
exclusively for the storage of data and/or programs 
and is called a satellite cartridge. 
Except for cylinder 0, which is described below, 
the definitions of the areas present on a non-system 
cartridge are the same as those previously described 
for a system cartridge. 


Cylinder 0 


Sector @lIDAD of cylinder 0 on a non-system cartridge 
contains the parameters established by DCIP or DISC 
(see Sector @IDAD of any Cartridge). Note however 
that the Error Message program has not been overlaid 
since this is not a system cartridge. An attempt to 
cold start a non-system cartridge will cause the error 
message to be printed on the Console Printer. Sector 
@DCOM of cylinder 0 contains only that information 
from DCOM applicable to this non-system cartridge 
(see DCOM). 

The location equivalence table (LET) for the car- 


tridge (see Location Equivalence Table), occupies the 


remaining six sectors of cylinder 0. 


| Cyl. 0 fre & | ci? | User Area | Working Storage | 
~~ 
~ 
ee 
— 


| 
| 
| ~ 
| 


— 
ID and _—— ee 
Error — 
Message 
Prog. | DCOM LET 
0 1 2-7 


1. Present only if a Fixed Area is defined for this cartridge by the user 

2. Optionally defined by the user 

3. May be deleted by the user. However, a CIB must be present on at least 
one of the cartridges on the system at any given time. 


Figure 4, Layout of a Non-System Cartridge 
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The Monitor programs: Supervisor, DUP, Assembler, 
FORTRAN Compiler, (optionally, RPG Compiler,) 
Core Load Builder, and Core Image Loader reside 

in the IBM System Area on the master cartridge. The 
following paragraphs briefly describe ‘these programs 
and the subprograms within them that are of most in- 
terest to the user, 


SUPERVISOR 


The Supervisor is actually a group of programs and 
areas which are responsible for the control functions 
of the Monitor system. The Supervisor reads control 
records included in the stacked job input, decodes 
them, and calls the appropriate Monitor program to 
perform the specified operation. The Supervisor 
initially achieves control of the Monitor system 
through the user-initiated cold start procedure 
(see Cold Start). 

A portion of the Supervisor is located in core 
storage. This portion is called the Resident Monitor. 


RESIDENT MONITOR 


The resident portion of the Monitor system consists 
of (1) a data area used for system parameters and for 
communication between Monitor programs (COMMA), 
(2) the Skeleton Supervisor, and (3) a disk I/O sub- 
routine (either DISKZ, DISK1, or DISKN). 


Core Communications Area (COMMA) 


In general, COMMA consists of the parameters re- 
quired by the Core Image Loader to process a CALL 
LINK to a DCI program without referring to the Disk 
Communications area (DCOM). This information is 
interspersed with parts of the Skeleton Supervisor 
(see Appendix H, Resident Monitor), 


Skeleton Supervisor 


On any entry to the Resident Monitor (EXIT, LINK, 
or DUMP), the Skeleton Supervisor calls the Core 
Image Loader, which determines where the Skeleton 
Supervisor was entered and either calls the Super- 
visor if the entry was at EXIT or DUMP or fetches 
and transfers control to the core load specified in the 
CALL LINK statement if the entry was at LINK. (if 


MONITOR PROGRAMS 


the link to be executed is in Disk System format, it 
will be necessary to call the Core Load Builder before 
transferring control to the core load itself.) 

The use of the Core Image Loader as an intermediate 
supervisor allows the Monitor system to achieve 
efficient link-to-link transfer of control. 

The Skeleton Supervisor, which is interspersed 
with COMMA, consists of the entry points and sub- 
routines described below. 


LINK Entry Point. LINK is the entry point in the 
Skeleton Supervisor that accomplishes link-to-link 
transfer of control. 


EXIT Entry Point. EXIT is the entry point in the 
Skeleton Supervisor that accomplishes link-to- 
Supervisor transfer of control, 


DUMP Entry Point. DUMP is the entry point in the 
Skeleton Supervisor that prints out the contents of 
core storage between specified limits. Dynamic 
dumps are obtained through the DUMP entry point; 
terminal dumps are obtained through the DUMP entry 
point plus 1. 


ILS02 Subroutine. The ILS02 subroutine handles the 
servicing of interrupts on level 2. Only the disk de- 
vices on the system interrupt on level 2. Since the 
Skeleton Supervisor requires the disk, the ILS02 sub- 
routine is a part of the Resident Monitor. 


ILS04 Subroutine. The ILS04 subroutine handles the 


servicing of interrupts on level 4. One of the devices 
that interrupt on level 4 is the Keyboard. Since the 
user may perform a console interrupt request at any 
time, the ILS04 subroutine is a part of the Resident 
Monitor. 


Preoperative Error Trap. The preoperative error 
trap is entered by all ISS subroutines when an error 

is detected before an operation has been initiated. 

The trap consists of a WAIT and a branch. When the 
PROGRAM START key is pressed, execution resumes 
at the location following the branch to this trap. Under 
certain conditions, this trap is entered when no error 
has occurred, e.g., FORTRAN PAUSE. 


Postoperative Error Traps. One of the postoperative 
error traps (there is one for each interrupt level) is 
entered by all ISS subroutines when an error is detected 
after an operation has been initiated. Each trap con- 
sists of a WAIT and a branch. When the PROGRAM 
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START key is pressed, control is returned to the ISS 
subroutine, which may then retry the operation in error. 


PROGRAM STOP Key Trap. The PROGRAM STOP key 
trap is entered if a level 5 interrupt occurs and there 
is no user-written device subroutine associated with 
level 5 currently in core. The trap consists of a 
WAIT and a branch. When the PROGRAM START key 
is pressed, the interrupt level is turned off and execu- 
tion resumes following the point of the level 5 interrupt. 

This trap allows the user to stop the entire 1130 
system with the ability to continue execution without 
disturbing the system status or the contents of core 
storage. 

If a higher interrupt level is being serviced when 
the PROGRAM STOP key is pressed, the PROGRAM 
STOP key interrupt is masked until the current opera- 
tion is completed. 


Interrupt Request Key 


When the INT REQ key is pressed, all busy indicators 
are turned off and a switch in COMMA is set to instruct 
the Supervisor to pass input records until a JOB record 
is encountered. Parts of the Monitor which should not 
be interrupted before completion, e.g., SYSUP, delay 
the interrupt request until they have completed their 
operation. 


Disk 1/O Subroutine 


The disk I/O subroutine required by the program in 
control resides in core storage following the Skeleton 
Supervisor. The following table lists the disk I/O 
subroutines, their approximate sizes, and the corre- 
sponding addresses of the end of the Resident Monitor 
plus 1. 

End of Resident Monitor +1 


Subroutine (Core Location) 

in Core Decimal Hexadecimal 
DISKZ 480 /01E0 
DISK1 660 /0294 
DISKN 930 /03A2 


DISKZ is the disk I/O subroutine used by all system 
programs. DISKZ is initially loaded with the Resident 
Monitor. 

Prior to the execution of a core load requiring 
DISK1 or DISKN, the Core Image Loader overlays 
DISKZ with the required disk I/O subroutine. When 
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control is returned to the Supervisor, the Core Image 
Loader overlays the disk I/O subroutine currently in 
core (if DISK1 or DISKN) with DISKZ. User programs, 
including those written in FORTRAN or RPG, may use 
any of the three disk I/O subroutines; however, only 
one disk I/O subroutine may be referenced in a given 
core load. In this context "core load" includes column 
19 of the XEQ record (the entry in column 19 of the 
XEQ record specifies the version of the disk I/O sub- 
routine to be used by the core load during execution). 


DISK-RESIDENT SUPERVISOR PROGRAMS 


The programs described below are the disk-resident 
programs that constitute the Supervisor. One of these 
programs is fetched and given control by the Core 
Image Loader, depending upon the entry made in the 
Skeleton Supervisor; the Monitor Control Record 
Analyzer is called following an EXIT entry, the DUMP 
program following a DUMP entry. 


Monitor Control Record Analyzer 


The Monitor Control Record Analyzer (1) reads a 
Monitor control record or Supervisor control record 
from the input stream, (2) prints the control record 
on the principal print device, and (3) fetches the re- 
quired Monitor program and transfers control to it. 
Supervisor control records are stored on disk in the 
Supervisor Control Record Area. 


MONITOR CONTROL RECORDS 


Monitor control records perform the load and control 

functions of the Monitor system. The individual con- 

trol records are described in the paragraphs that follow. 
Where shown in the control record format, the 

character ''b'' indicates that the column must be blank. 

Remarks may be punched in the card columns listed 

as "not used" in the control record formats, 


// JOB 
The JOB control record defines the start of a new job. 
It causes the Supervisor to perform the job initialization 


procedure, which includes: 


e The initialization of COMMA 


The initialization of the parameters in DCOM 


The setting of the Temporary Mode Indicator if a T 
is present in column 8 of the JOB control record 


(reset if no T in column 8). If set, the temporary 
mode indicator causes all DSF programs, DCI pro- 
grams, or Data files stored in the User Area by DUP 
during the current job to be deleted automatically 
from that area at the end of the job (that is, at the 
beginning of the next job). See DCOM for DUP re- 
strictions while in the temporary mode. 

The definition of the cartridges to be used during 

the current job. IDs 1 through 5 on the JOB control 
record specify the cartridges to be used. These 
cartridges may be mounted on the physical drives 

in any order. The order of the IDs in the JOB con- 
trol record specifies the logical assignments for 

the cartridges. IDs 1 through 5 correspond to logi- 
cal drives 0 through 4, and they must be specified 
consecutively. If only three drives are to be used 
IDs 1-3 only are specified. The cartridge-related 
entries of COMMA and DCOM (quintuples) are filled 
in according to the logical order specified by the 
user. The first ID may be left blank, in which case 
the master cartridge for the last JOB will also be the 
master for this JOB. 

The definition of the cartridge on which the Core 
Image Buffer for the current job is to be found. The 
ID of the cartridge containing the CIB must follow the 
field of the fifth cartridge ID. If the CIB ID is omit- 
ted, the CIB on the master cartridge is used. Core 
image programs can be built faster if the CIB is 
assigned to a cartridge other than the master 
cartridge. 


The definition of the cartridge containing the Work 


ing Storage to be used by the Monitor programs 
(System Working Storage). The ID of the cartridge 


to be used for Working Storage by the Monitor Sys- 
tem must follow the CIBID. If the Working Storage 
ID is omitted, all Monitor programs use the Work- 
ing Storage on the master cartridge (except when 
otherwise specified, see DUP Control Records). 
Core Image programs can be built faster if the 
System Working Storage is on a cartridge other than 
the master cartridge. They can be built even faster 
if the CIB, the system Working Storage, and the Mon- 
itor system itself are all on separate cartridges. 
Assemblies are also taster if System Working Stor- 
age is on a separate cartridge. (See *FILES, page 
23, for Working Storage for user programs.) 

The definition of the cartridge containing the unfor- 
matted 1/0 ($$$$$) disk buffer area to be used with 
this job. 

The starting of a new page on the principal print de- 
vice. A skip to channel 1 is executed on the 1132 or 
1403 Printer, or five consecutive carriage returns 
are made on the Console Printer. The page count 


is reset to 1, and the surrent page heading is re- 
placed with whatever appears in column 51-58 

of the JOB control record. HDNG (assembler 
language) statements and **(FORTRAN control 
record) records will cause additional information 
to be printed. 


The reading of the Supervisor control records 
of EQUAT type, if any, and writing them on 


disk in the Supervisor Control Record Area 


(SCRA). 








The format of the JOB control record is as follows. 


Card 
Column Contents Notes 


//bJOB 

Reserved 

Temporary mode 
indicator 

Reserved 

First ID 






















T or blank, A T indocates that 
temporary mode is desired for this job, 










This is the ID of the master cartridge 
(logical drive 0). 











Reserved 
Second ID 









This is the ID of the cartridge on 
logical drive 1, 













Reserved 
Third ID 





This is the ID of the cartridge on 
logical drive 2, 













Reserved 
Fourth ID 





This is the ID of the cartridge on 
logical drive 3, 











Reserved 
Fifth ID 








This is the ID of the cartridge on 
logical drive 4, 











Reserved 
CIB ID 










This is the ID of the cartridge con- 
taining the CIB to be used during 
this job, 













Reserved 
Working Storage 
ID 










This is the ID of the cartridge contain- 
ing the Working Storage to be used by 
the monitor during this job, See 
*FILES, p, 23, for details on Working 
Storage for user programs, 



















Reserved 
Unformatted disk 
1/0 ID 





This is the ID of the cartridge contain- 
ing the unformatted disk I/O area to 
be used during this job. 














Reserved 
Date, Name, etc, 





This information is printed at the top 
of every page of the listing on the 
principal print device during this job, 













Not used 


EQUAT record 
count 










This number specifies how many 
EQUAT records follow this JOB 
record, 






Not used 
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// ASM The format of the ASM control record is as follows. 


Card 
ments to be assembled must follow this control record. 1-6 //bASM 
Comments control records (// *) may not follow this iaics peers 


control record. (See *FILES, p. 23 for working storage for user programs.) 


This control record causes the Supervisor to read the 
Assembler into core storage and transfer control to it. 
Any Assembler control records and the source state- 
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// FOR 


This control record causes the Supervisor to read the 
FORTRAN Compiler into core storage and transfer 
control to it. Any FORTRAN control records and the 
source statements to be compiled must follow this 
control record. Comments control records (// *) may 
not follow this control record. 

The format of the FOR control record is as follows. 







Card 
Column Contents Notes 
1-6 //bFOR 
7-80 Not used 


// RPG 





This control record causes the Supervisor to read the 
RPG Compiler into core storage and transfer control 
to it. The RPG control card and RPG specification 
statements to be compiled must follow this control 
record. Comments control records (//* ) may not 
follow this control record. 

The format of the RPG control record is as follows. 


Card Contents Notes 
Column 
//bRPG 
Not used 





// DUP 


This control record causes the Supervisor to read the 
control portion of the Disk Utility Program into core 
storage and transfer control to it. A DUP control 
record must follow this control record. Only one 
// DUP control record is required to process a stack 
of DUP control records, provided no Monitor control 
record other than the Comments control record (// *) 
is encountered. 

The format of the DUP Monitor control record is 
as follows. 


Card 
Column Contents Notes 
1-6 //bDUP 
7-80 Not used 
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// XEQ 


This control record causes the Supervisor to initialize 
for core load execution. If the name specified in this 
control record (columns 8 through 12) is that of a 
mainline program stored in Disk System format, the 
Supervisor reads the Supervisor control records 
(LOCAL, NOCAL, FILES, or G2250), if any, from 
the input stream and writes them in the Supervisor 
Control Record Area (SCRA). The Core Load 
Builder is then called to build a core image program 
from the mainline program. 

If no name is specified on this control record, a 
mainline program in Disk System format is assumed 
to be stored in the Working Storage of the cartridge 
specified in columns 21-24. The Supervisor then 
processes the Supervisor control records and calls 
the Core Load Builder via the LINK entry point in the 
Resident Monitor. 

After the Core Image program has been built, or if 
the name in the control record is that of a program 
already stored on disk in DCI format, the Core Image 
Loader is called to read the core load into core storage 
and transfer control to it. 

If an L is punched in column 14 of this control rec- 
ord, a core map is printed by the Core Load Builder 
during the building of the core image program. In ad- 
dition, a core map is printed for all DSF links during 
the execution (see Reading a Core Map and a File Map 
for an example of a core map). These core maps 
include: 


e The execution address of the mainline program 


e The names and execution addresses of all subpro- 
grams in the core load 


All file allocations, with the file number, sector 
address (relative to first sector of Working Storage 
for files in Working Storage, absolute otherwise), 
sector count, and either cartridge ID or the address 
of Working Storage. (If the file is in Working Stor- 
age, the address of Working Storage will be in- 
cluded; otherwise, the name of the file is printed.) 


Columns 16 and 17 of this control record contain 
the right-justified decimal count of Supervisor control 
records to be read by the Supervisor before calling the 
Core Load Builder. 


Column 19 contains a character that identifies the 
disk I/O subroutine to be used by the core load during 
execution. If column 19 contains zero or one, DISK1 
is fetched by the Core Image Loader along with the core 
load. If Column 19 contains an N, DISKN is fetched. 
If column 19 contains a blank or a Z, no disk I/O sub- 
routine is fetched (that is, DISKZ, which is in core 
storage for use by the Monitor programs, is used by 
the core load). Any other character is illegal and will 
cause the execution to be bypassed. All links in Disk 
System format that are called during a given execution 
must utilize the same disk I/O subroutine as the link 
that precedes them in execution. 


A punch in column 26 makes it possible for a 
LOCAL to call another LOCAL, provided the re- 
strictions listed in "Programming Tips and Tech- 
niques" are met. 


A punch in column 28 indicates that special ILS 
are to be used for this core load, If column 28 is 
blank, the standard set of ILSs is used. The spec 


s 


ial ILSs, named with an X before the number (e.¢g., 
ILSX4), save and restore index register 3 and set 


index register 3 to point to the transfer vector, in 
addition to the functions of the standard ILSs. 


The use of special ILSs opens up the possibility 
of using index register 3 in programs. Special ILSs 
require 5 more words per ILS than standard ILSs. 
Note that level 2 and level 4 ILSs, which normally 
are located in the Resident Monitor, will be loaded , 
together with other subroutines, as if they were 
user-written ILSs. The user can replace either 
ILS with a user-written ILS. 

Comments control records (// *) may not follow 
an XEQ control record. 

The format of the XEQ control record is as fol -— 
lows. 


Card 
Column Contents Notes 


//bXEQ 
Reserved 
Name This is the name (left-justified) of the 


DSF program or DCI program to be executed. 


Reserved 

Core Map |Lor blank. An L indicates that a core 

Indicator map is to be printed for this and all fol- 
lowing DSF links during this execution. 

Reserved 

Count This is the right justified decimal number 
of Supervisor control records (LOCAL, 
NOCAL, FILES and G2250) that follow. 

Reserved 

Disk 1/0 This column specifies the disk I/O sub- 

subroutine routine to be loaded into core by the 

indicator Core Image Loader for use by the core 
load during execution. 

Reserved 

Cartridge The ID of the cartridge that contains the 

ID mainline program in its Working Storage 
(valid only if no name is specified in 
columns 8-12; blanks in this field indi- 
cate the System Working Storage). 

Not used 

LOCAL call | A punch in this column enables a LOCAL 

LOCAL indi-| program to call another LOCAL, Without 

cator a punch, a LOCAL cannot call another 
LOCAL, 

Not used 

Special ILS | A punch in this column indicates that ILSs 

indicator for this core load should be chosen from 
the special ILSs, 

Not used 





// PAUS 


This control record causes the Supervisor to WAIT. 
When PROGRAM START is pressed, the Super- 
visor continues processing Monitor control records 
from the input stream. 

The format of the PAUS control record is as 
follows. 


Card 
Column Contents Notes 


Card ] 
Column Contents Notes 





1-7 //bPAUS 
8-80 Not used 


// TYP 





This control record causes the Supervisor to tem- 
porarily assign the Keyboard as the principal input 
device. The Keyboard replaces the card or paper 
tape reader as the principal input device until a 


| TEND control record is entered from the Keyboard. 


The format of the TYP control record is as 
follows. 





1-6 //bTYP 
7-80 Not used 


With the Keyboard as the principal input device, 
the keyboard functions are identical to those dis- 
cussed for TYPEZ and TYPEO (System Library 
Subroutines) with one exception. The END-OF- 
MESSAGE character causes the rest of the buffer 
to be filled with blanks. Therefore, at the comple- 
tion of a new message, nothing will remain of any 
previously - entered message. 





// TEND 


This control record causes the Supervisor to re- 
assign the card or paper tape reader as the princi- 
pal input device. The reassignment is to whichever 
unit was the principal device prior to the detection 
of a TYP control record. 

The TEND control record must be entered from 
the Keyboard. The format of the TEND control 
record is as follows. 


Card 
Column Contents 





//EJECT 


This control record causes the 1403 Printer or 1132 
Printer, whichever is the principal print device, to 
skip to a new page and print the page header. When 
Console Printer is assigned as principal - printer, 
or a // CPRNT record has been processed a space 
of 5 lines and printing of page header will be per- 
formed. Control is then returned to the Supervisor, 
which reads the next record in the input stream. 
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The EJECT control record itself is printed. 


Card 
Column Contents Notes 
1-8 //bEJECT 
9-80 Not used 


| //* (comments) 


This control record allows the user to print alpha- 
meric text on the listing printed on the principal 
print device by the Supervisor and DUP. The Super- 
visor and DUP simply print the control record and 
continue reading control records from the input 
stream. The Comments control record may not 
immediately follow an XEQ, ASM, RPG, or FOR con- 
trol record. 

When Supervisor uses Console Printer to print 
records and the principal printer is another printer, 
DUP is going to print the comments on the princi- 
pal printer and Supervisor on the Console Printer. 

The format of the Comments control record 
is as follows. 


Card 
Column Contents Notes 
1-4 // oe 
5-80 | User comments Any alphameric characters may be 
used, 


// CPRNT 













This control record causes the Supervisor to print 

all Monitor and Supervisor control records that it 
reads on the Console Printer. Printing by all other 
Monitor programs will be on the principal print device. 

Once the CPRNT control record has taken effect, 
all Monitor and Supervisor control records will be 
printed as described above. To return the printing 
of Monitor and Supervisor control records to the prin- 
cipal print device, a reload function must be per- 
formed by the System Loader to redefine the princi- 
pal print device. 

This control record causes the // EJECT record 
to affect the Console Printer rather than the princi- 
pal printer. 

The format of the CPRNT control record is as 
follows. 


Card 
Column Contents Notes 
1-8 //bCPRNT 
9-80 | Not used 
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SUPERVISOR CONTROL RECORDS 


The control records described below (LOCAL, NOCAL, 
FILES, EQUAT and G2250) are used by the Core Load 
Builder to: 


e Provide for subprogram overlays during execution 
(LOCAL) 


e Include subprograms not called in the core load 
(NOCAL) 


e Equate disk storage files defined in the mainline 
program during compilation or assembly to specific 
files stored on the disk (FILES) 


@ Provide Graphic Display Capabilities (G2250) 


® Substitute a subroutine with another subroutine 


The first four control records are placed in the 
input stream following an XEQ Monitor control record 
that names a mainline program stored in Disk System 
format or following a STORECI control record. In 
either case the control records are written on disk 
in the Supervisor Control Record Area (SCRA), from 
which the Core Load Builder reads them for processing. 

The fifth type of control record (EQUAT) is placed 
after a JOB Monitor control record and maintains its 
function until the next Job Monitor control record is 
met, Supervisor will read the EQUAT control records 
and write them on disk in the SCRA, from which the 
Core Load Builder reads them for processing. 


Up to 99 Superviscr control records may follow 
the XEQ or STORECI control record. There is no 
specified order (by type) to be followed; however, 
the types may not be intermixed. 


*LOCAL 


LOCAL (load-on-call) subprograms are subprograms 
specified by the user to be read, one at a time, as they 
are called during the execution, into a LOCAL overlay 
area. The LOCAL subprograms are specified on the 
LOCAL control record as follows: 


12 4 


7 $919 WY 4 1617 18 19 20 21 22 23.24 25 26 27 28 29 30 31 32 33 34 35: 


vi AS a > Fs epele Bs ry 


where 


MAIN1 is the name of the mainline program 
already stored on disk. SUB1 through SUBn are 
the names of the LOCAL subprograms used with 
that mainline program. 


In the case illustrated below, all the LOCAL control 
records except the last end with a comma (continuation 
character) and the mainline program name appears on 
the first LOCAL control record only. 


67 8 9.10 1 131415 16 17 18 19 20 21 22 23 24 25 26 27 26 29 30 31 32 33 34 35: 


2: tO 2 OFT. Mis N < *, 


The same results would have been obtained if the 
records had been: 


§ 6 7 8 9 10 11 12 13 14 15 16 17_18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35° 
OCIA MA a = 
4 = 


4 
NIA a 


All the LOCAL subprograms for each mainline pro- 
gram in an execution must be specified on the LOCAL 
control records that follow the XEQ Monitor control 
record initiating the execution. 

Separate LOCAL control records must be used for 
each mainline program in the execution that calls 
LOCAL subprograms. For example, 


6 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 353 


Ss Bun) 


12.3 4 § 6 7 6 9 10:31 12:13 14 15 


4 o = 5 e,ele 
QO AL ib UVTI AY A 2 


where 
MAIN2 is a link called by MAIN1. 
If the mainline program is to be executed from 


Working Storage, the mainline program name must 
be omitted from the LOCAL control record, 


For example, 


1203 4 05 6 7 8 8 1G 1 12s 19._— 485 16 I7_'18 OF 2071 22 23 24 25 2% 27 28 29 30 31 32 33 4 35 


LO AL : BZ e,e,e . an 
gay fet TEy eeWeed (se Ps Ha) Kee Wes UaL D  d He T i 


This LOCAL control record format must be 
used if LOCALs are to be specified with the DUP 
operation STORECTI. 


No embedded blanks are allowed in the LOCAL 
control record. 


*NOCAL 


NOCAL (load-although-not-called) subprograms are 
subprograms specified by the user to be included in 
the core load, even though they are not called. 

They are specified on NOCAL control records using 
the same format that applies to LOCAL control 
records except that “NOCAL is used in place of 
*LOCAL. 


Rules for LOCAL and NOCAL Usage 


The user must observe the following rules in the 
usage of LOCAL and NOCAL control records: 


e Asubprogram cannot be specified as a LOCAL 
subprogram if it causes another subprogram, 
also specified as a LOCAL subprogram in the 
same mainline program, tobe called. For ex- 
ample, if A calls B and Bcalls ©, andAisa 
LOCAL subprogram, neither B nor C can be 
specified as a LOCAL subprogram for the same 
mainline program, This restriction can be avoided 
by using the LOCAL-calls-LOCAL option (see '"'// 
XEQ control record" and "Programming Tips and 
Techniques"). 


e Ifa subprogram is specified as a LOCAL sub- 
program and system overlays (SOCALSs) are 
employed, the subprogram is made a LOCAL 
subprogram, even if it would otherwise have 
been included in one of the SOCALs. 


© Ifa subprogram is specified as a LOCAL sub- 


program, it is included as a LOCAL subpro- 
gram in the core image program even if it is 
not otherwise called. 
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e The information on all the LOCAL control re- 
cords for an execution may not exceed M+2(C+1), 
where M is the number of mainlines and C is the 
number of commas. This restriction also 
applies to NOCAL control records. 


e Only subprograms types 3, 4, 5 and 6 can be 
named on LOCAL and NOCAL control records. 
Subprogram types 3 and 5 are referenced by 
LIBF statements, types 4 and 6 with CALL 
statements. Types 5 and6 are ISSs; types 
3 and 4 are subprograms. See Appendix C 
for a description of subprogram types. 


e Conversion tables, e.g., EBPA, HOLTB, may 
not be used as LOCALs. 


*FILES 


By means of FILES control records the file num- 
bers specified in FORTRAN DEFINE FILE state- 
ments or in Assembler FILE statements are equat- 
ed to the names of Data Files stored in the User 
and Fixed areas. FILES control records may also 
be used to define Data Files in Working Storage 
other than the master cartridge. All the User/ 
Fixed Area files to be used by all the core loads 

in an execution must be defined in the FILES con- 
trol records following the XEQ Monitor control 
record initiating the execution. All the files thus 
defined are available to each core load in the exe- 
cution. 

When Data Files are equated in a program stored 
in DCI, successful execution of this program re- 
quires that all cartridges on which these files are 
stored must be in the same condition and on the 
same logical drives as when the STORECI occurred, 
This is necessary since the Core Load Builder 
places an absolute sector address, including the 
drive code, into the file table for each equated file. 

The format of the FILES control record is as 
follows. 
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where 


FILE1 through FILEn are the file numbers 
specified in the FORTRAN DEFINE FILE 
statements or Assembler FILE statements. 


NAME 1 through NAMEn are the names of Data Files 
already stored on disk. If the name is omitted 

(2 commas are required in the control record for- 
mat), the file is placed in Working Storage on the 
specified cartridge. 


CAR1 through CARn are the IDs of the cartridges 
on which the respective Data Files are found. If 
the cartridge ID is omitted, it is assumed that the 
corresponding Data File has been defined on the 
master cartridge. 


Continuation of FILES control records may be in- 
dicated by a comma following the last file defini- 
tion on the control record, as follows: 


1203 4 5 6 7 6 910 31 1213 1415 16 17_18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 : 


The continuation comma may appear only immediately 
after a right parenthesis. 


No more than 159 files may be equated during an 
execution. 


No embedded blanks are allowed in the FILES 
control record. 


*G2250 


G2250 is the name of the supervisor control record 
which is used to give the user graphic capabilities. 
The G2250 control record causes the Graphic Sub- 
routine Package (GSP) communication module 
(GCOM) to be included in the core load immediately 
following the mainline program, (See IBM 1130/2250 
Graphic Subroutine Package For Basic FORTRAN IV, 
Form C27-6934, for instructions on properly 
loading the mainline program.) Other supporting 
subroutines are also loaded into this area depending 
on the arguments described below. The format of 
the G2250 control record is: 


12345678 9101112 13 14 15 16 17 18 19 2021 22 23 24 25 26 27 28 29 30 31 32 33 34 35 3637 38 39 
225, OMLMNE VU 
*G&225 0hLM 


yee ae ee ee ee ee ed 
os ae ae ae ee ee ee ee ee ee 


oe re Oo Os Ol Le EEEmemmedd 


where MLMNE is the mainline program to be 
executed. If the mainline program is executed 
from working storage, the mainline name must 
be omitted. The 1130/2250 user must enter a 
G2250 control record for each program using GSP 
to which he desires to link. 


Card 


*G2250MLMNE 


Function 


Specifies graphic support is required 
for the named mainline program. 

Loads GCOM immediately after the 
mainline program. 



















The character stroke subroutine con- 
taining upper case, numeric, and special 
characters is loaded. 





The character stroke subroutine con- _ 
taining upper case, lower case, numeric, 
and special characters is loaded. 
No character stroke subroutine is loaded. 
The scissoring subroutine is loaded. 
The scissoring subroutine is not loaded. 


The ICA area expansion subroutine is 
loaded. 


The ICA area expansion subroutine is 
not loaded. 


The index controlled entity subroutine 
is loaded. 


The index controlled entity subroutine 
is not loaded. 


The level controlled direct entry sub- 
routine is loaded. 


The level controlled direct entry sub- 
routine is not loaded. 





Information concerning the use of GSP subroutines 
as LOCALs and core storage layout requirements 
can be found in IBM 1130/2250 Graphic Subroutine 
Package For Basic FORTRAN IV, Form C27-6934, 


*EQUAT 


With the EQUAT control record the user specifies that 
subroutines will be substituted during the building of a 
core load. The format of the control record is as 
follows: 


*EQUAT(SUB1,SUB2), ...(SUBN,SUBM) 

where 

SUB1 is the ua me of a subroutine which the Core 

Load Builder replaces with the subroutine SUB2 during 
the building of a Core Load, 

Note that in the example given below the substitution 
of SUB2 for SUB1 is also accomplished in the 
*STORECI operation. 
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The EQUAT control record may also be used to sub- 
stitute symbloic names in DSA statements. (Assem- 
bler programs only.) In this instance what has been 
said above concerning subroutine names is also 
applicable to symbolic names in DSA statements. 


More than one control record can be used so long 
as the exact number of control records used is 
punched in the Job Monitor Control (See // Job). 


In the Programming Tips and Techniques section, 


information is found on how the EQUAT function is 
used, (See USE OF THE EQUAT RECORD). 
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SUPERVISOR CORE DUMP PROGRAM 


The DUMP program provides the user with a hexa- 
decimal printout of the contents of core storage. The 
calling sequences for the DUMP and PDMP state- 
ments are contained in the Assembler language man- 
ual (Form C26-5927). FORTRAN programs access 
the DUMP Program through the FORTRAN statement 
CALL PDUMP (See FORTRAN language manual, 
Form C26-3715). 


Terminal and Dynamic Dumps 


The DUMP entry point (SDUMP) in the Skeleton Sup- 
ervisor (and thus the DUMP program in the Super- 
visor) can be entered (1) by a BSI to the DUMP entry 
point, (2) by a manually executed transfer to the 


25, 1 


DUMP entry point plus 1, or (3) by a branch to loca- 
tion zero, which contains an MDX to $DUMP+1. 


When the DUMP entry point is entered, a dump 
of the area of core storage bounded by the limit para- 
meters is given in hexadecimal format. Execution of 
the core load in progress then resumes at the loca- 
tion following the last parameter of the call to the 
DUMP entry point. 


When $DUMP+1 is entered, a dump of the entire 
contents of core storage is given in hexadecimal 
format. The DUMP program then executes a CALL 
EXIT, thereby terminating the execution of the core 
load in progress. 


A portion of a core dump is printed below. 


ACCUMULATOR 4000 


AODOR 


0000 
Q010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
QOAO 
0080 
00co 
ocbo 
O0EO 
QoFO 
0100 
0110 
0126 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
OLAO 
0180 
01ico 
0100 
O1EO 
O1FO 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
O2A0 
0280 
02CO 
0200 
O02E0 
O2FO 
0300 
0310 
0320 
0330 
0340 
0350 


TEBO 
7ECO 
TEDO 
TEEO 
TEFO 
7FO0O 
TFLO 
TF20 
TF30 
TF40 
TF50 
TF60 
TF70 
TF 80 
TF90 
TFAO 
TFBO 
TFCO 
TFDO 
TFEO 
TFFO 
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#EEC 


703F 
0000 
4DCC 
Q000 
7400 
0032 
QOEE 
co00 
ocoo 
008D 
oooc 
ocao 
4CCO 
6109 
0200 
OGEF 
6AED 
6600 
0198 
5002 
0400 
0028 
OCOE 
4828 
O23A 
1co02 
4810 
4808 
C247 
ocoo 
4480 
7F 33 
0395 
4480 
4400 
7C£B0 
4480 
4C3F 
6A5D 
4C18 
703C 
0254 
6A01 
70B3 
0C04 
0398 
0336 
D845 
0835 
4C20 
0398 
40C5 
4040 
7eC3 


4480 
7926 
4480 
BOAC 
70FD 
D116 
0000 
0060 
0000 
0000 
0000 
a0co 
0150 
ooco 
05A3 
O5FS 
0coo 
coco 
C000 
1064 
ocoo 


ke] 


FFEB 
5540 
co02 
retelere) 
0032 
TOFD 
T0FO 
0000 
Q00u 
coco 
ccoo 
cooo 
00B3 
0810 
CFCO 
FFOA 
COFO 
COF2 
7000 
5004 
0141 
T03A 
80Cb 
7006 
EA43 
4828 
1002 
7094 
4820 
co0o 
7089 
6F00 
4400 
70B8 
C44C 
C928 
70B0 
6600 
7201 
O2BD 
D4G0 
6105 
C700 
4C 80 
4C18 
c7co 
7005 
C84A 
C83t 
0315 
4400 
D5C4 
4040 
C9C2 


7083 
6500 
7TC0BA 
1800 
cog. 
8300 
000u 
occo 
occo 
ccco 
co0u 
Ollu 
0000 
ccoo 
cO0b 
0030 
0000 
0000 
0000 
0000 
0000 


EXTENSION 78D3 


#442 


0000 
FFFF 
4400 
cool 
7OFC 
C880 
4102 
0000 
3000 
3000 
0000 
coco 
cool 
1149 
0000 
0048 
DOF4 
0819 
0001 
FECO 
coco 
con9 
0018 
C101 
D239 
7088 
F251 
8A40 
4213 
ooo 
0006 
045A 
02A9 
4480 
6600 
CAC] 
C928 
0378 
6A13 
4480 
0398 
630A 
O32F 
02A9 
0209 
7F70 
1810 
D845 
0835 
co1c 
C3A7 
4006 
D3C5 
C140 


#443 


0000 
coco 
COF2 
0000 
C806 
6580 
eoco 
0000 
4C80 
4CCO 
eccc 
0051 
9400 
4580 
0300 
7400 
7053 
DOoc9 
0140 
0001 
FFFF 
1800 
80CA 
80C2 
EA50 
1008 
8230 
DA 3C 
CA32 
coco 
6780 
6FOO 
C302 
7085 
035A 
C303 
DA13 
403C 
1810 
7DBB 
70DE 
400B 
D7CO 
C700 
C700 
180C 
D400 
6600 
66CO 
72FO 
C400 
C640 
E340 
4C40 


08C8 
c8B8 
COB4 
ABAA 
830C 
4480 
cooo 
co00 
cooc 
1052 
2222 
0000 
0000 
0000 
colo 
0035 
0000 
0000 
0000 
ocoo 
COF2 


Try) 


OFFA 
0327 
740C 
0000 
6902 
6039 
co00 
0000 
008 
C091 
0658 
6906 
002A 
TFEB 
0000 
OOEE 
4C00 
4850 
OFFA 
0080 
ccoc 
C101 
D033 
7401 
$247 
4828 
CA34 
4830 
09C0 
0000 
TFFC 
020 
1804 
4480 
6317 
4480 
4480 
4480 
0400 
7925 
O2EC 
740C 
7925 
7F6B 
TF6B 
100C 
0386 
032F 
032 
TOFA 
0390 
C4E4 
7BC3 
7BE4 


28C0F 
2001 
DOAC 
8115 
0117 
7087 
0000 
C406 
0000 
coco 
3333 
co00 
ccoo 
cooo 
03C0 
0230 


ccoo 
78D3 


XR1 7FAO 

HHS bz Joy 
0140 0080 
0008 ccol 
COEE 7O0FD 
ccoo0 coo0 
C480 003F 
C101 1800 
Qg000 0000 
0000 FFFF 
ca0o0 § 3000 
0106 CcCcco 
C658 0658 
6A0T 2807 
0818 280E 
2c00 6500 
coo00 ccoo 
TOFC 7002 
C1BE 6908 
TOEE C80d 
0140 C004 
c6é0o0 co0s 
cooo 1810 
1803 7040 
80D6 8008 
C1l6F 7201 
D237 EA42 
7OBC C101 
4213 CA38 
1810 824F 
C23C 4808 
a000 6 c000 
18A0 CFOO 
C120 4C20 
4C20 020C 
7DB5 4480 
4079 4480 
70BO0 C928 
70BB 7925 
7085 6215 
C390 4400 
6600 7792 
613C C008 
O2A4 TILFF 
73FF 7OFA 
1004 1804 
1004 1804 
EC8C C2BE 
4C0O OLFL 
630A 40A8 
630A TOEF 
C019 4C€20 
4C18 O2E7 
C407 C603 
C9C4 0540 
03C5 £&340 
690C 6A09 
4C80 7EBC 
6BAD C301 
90A9 4C08 
4480 70B7 
C12E 4€98 
0000 0000 
3040 0020 
ago000 690000 
0000 acod0d 
OOOF OABB 
CCOO FFFE 
0020 Cccco 
ccoo 9000 
0015 0461 
Q0037 C248 
ccoo 3 7803 
0000 60000 
cooo acco 
cooo coco 
7DBB 0802 


XR2 7803 
¥4ET 


coo0o 
TFAO 
TOF4 
cooc 
DOD] 
C100 
0000 
0000 
4C80 
coo00 
0000 
O80A 
690F 
7F AO 
C000 
OOBA 
OB1E 
0900 
9500 
5000 
DOA6 
7401 
80C7 
TOFS 
8247 
9400 
DA34 
D100 
TOE9 
0000 
0142 
0307 
Ccoo 
7085 
70BB 
D206 
4480 
6£00 
O3A7 
C202 
0500 
TOFA 
4C80 
4C18 
9480 
4C00 
4480 
4480 
6827 
0318 
4480 
C53 
4040 
4040 


6B06 
435E 
E0B3 
TEEB 
CL2E 
7€00 
0000 
0000 
co000 
0Qo0o 
3333 
ocoo 
oooc 
oooc 
cols 
0039 
70BB 
0000 
Qooo 
0000 
78D3 


ES 


TAED 
0900 
7B83F 
7014 
C8F3 
DeBB 
0000 
0802 
0085 
0000 
0000 
4400 
6A10 
6600 
cooo 
7015 
6500 
T4FF 
0004 
OFF8 
T4FF 
0032 
D006 
6600 
D24D 
OO9A 
4213 
CA36 
7500 
0000 
633C 
C110 
0342 
4480 
7925 
18D0 
7085 
039F 
1000 
8400 
7925 
C003 
029F 
0209 
02BE 
OFF 
7085 
7088 
4400 
C112 
7088 
4040 
5BC6 
78C6 


6500 
4480 
0115 
4480 
4C98 
1010 
0000 
0200 
coco 
1052 
0000 
ooco 
oooc 
0000 
03CO0 
o00c 
0000 
0000 
0000 
co8D 
110€ 


849 


7056 
703F 
300C 
occe 
4400 
6500 
occo 
ocel 
ccoo 
ocoo 
ocoo 
OCF? 
0816 
78D3 
occo 
69CF 
7FAO 
OOEE 
$5CC 
01cCc 
0032 
6500 
62FD 
ooF2 
EAGB 
4818 
C231 
DA34 
0140 
ocoo 
6FCC 
4C28 
Dcoo 
7085 
405A 
D207 
4480 
C40 
ccoc 
039C 
TLFF 
DOOA 
0203 
c7C0 
D400 
C193 
4480 
7925 
044C 
9202 
7925 
4040 
D7C1 
D3c5 


TFAO 
TCBA 
4820 
10B4 
TECF 
O12E 
occo 
0000 
ccol 
ococ 
0coo 
occo 
ocoo 
occo 
oo1c 
ccoo 
ccoo 
ccco 
occo 
0080 
7091 


XR3 0000 


WEA 


0083 
4000 
4C80 
1810 
GOF2 
010C 
ccoo 
o000 
3000 
0140 
ccoo 
6500 
1002 
C803 
cooo0 
6410 
6600 
TO3E 
0122 
0701 
1000 
C004 
6980 
C230 
D238 
7014 
D480 
C101 
c900 
CcCAO 
7925 
0283 
TDA4 
4480 
6600 
C305 
70B5 
039B 
0390 
0400 
TOFC 
4480 
6780 
7F6B 
0386 
4C10 
7085 
C845 
6700 
0112 
7203 
b3c5 
C440 
E340 


4C80 
0100 
C300 
005D 
1010 
4F00 
0000 
ccoo0 
oool 
0000 
0000 
cooo 
cooc 
0000 
O5A3 
0000 
ccoo 
cooo0 
co04 
0080 
TA06 


OVERFLOW OFF 


#28 


0000 
78D3 
0028 
7012 
COFO 
COFE 
0000 
coco 
4C80 
0000 
0000 
TFAO 
4C€10 
4CCO 
0000 
1008 
7803 
C812 
9600 
0007 
TOBC 
c900 
c101 
E249 
CA3C 
1893 
0198 
EASO 
DA32 
3333 
6300 
C700 
7004 
7085 
7925 
4480 
4480 
D400 
0916 
039C 
6500 
7088 
TFFC 
4C00 
c6co 
O2E7 
4098 
bcoOo 
7925 
1810 
C202 
E361 
4040 
E2C3 


TEB2 
COFB 
4C€30 
C896 
D12E 
0002 
0000 
0000 
OLOA 
0000 
0000 
0118 
0009 
cooo 
OolF 
0000 
0000 
0000 
056B 
0080 
0640 


*e4C 


00c4 
OOF2 
003F 
0001 
7001 
1890 
cco0 
ocoo 
0089 
0000 
coco 
6600 
0000 
00c4 
ocoo 
DO3C 
4C80 
C014 
9400 
OOOA 
COE3 
08CT 
EOCB 
D250 
OA3A 
180F 
9101 
D101 
CA3C 
O16E 
C193 
TFT70 
ccoo 
C400 
6780 
7080 
7085 
039C 
4480 
7203 
TFAO 
7925 
ccoo 
OLFF 
OOFB 
7301 
C110 
TDA4 
6680 
0400 
4C€20 
C603 
7T8C6 
E309 


TE4SF 
D002 
TEEO 
4400 
4F00 
0000 
0000 
occo 
7800 
0c00 
0140 
0000 
ocoo0 
0000 
O5A3 
0000 
ocoo 
0000 
0461 
008d 
7782 


#e4xD 


0091 
7400 
0150 
0004 
COFO 
4400 
0000 
0000 
ocoo 
0000 
0000 
7803 
4480 
4001 
ccoo 
1800 
OOFT 
4293 
9781 
009F 
T0CF 
0800 
D101 
C400 
D2EB 
1002 
4C20 
4213 
D900 
0100 
4C28 
4C18 
033E 
0386 
7FFC 
C928 
4036 
6680 
7DB7 
T4FF 
4C80 
4C80 
0394 
C400 
8400 
6F00 
4028 
4480 
TFBS 
0390 
O2E7 
C5E3 
D7CL 
40D5 


6700 
C089 
4480 
OOF2 
0002 
0000 
0000 
FFF6 
ocoo 
0106 
0000 
0000 
0000 
0000 
0024 
0000 
0000 
0000 
TOFD 
7056 
7925 


CARRY 


FEE 


8000 
COEE 
occo 
FFFF 
DOCT 
OoF2 
co00 
0000 
3000 
0¢00 
occo 
2000 
002¢ 
4000 
0011 
DOS 
6500 
1810 
OEBA 
FFFB 
COE8 
1810 
$400 
OO9F 
4828 
EA3A 
0116 
C240 
708F 
03C0 
O1lF1 
02E7 
DC00 
4418 
C302 
DAOD 
6600 
TFFC 
C4CO 
039F 
0284 
0290 
DB00 
7788 
039B 
0336 
O2FF 
7DAD 
7201 
C112 
70F2 
C6D3 
C440 
D64B 


0000 
70065 
7084 
7400 
TOFD 
0000 
0070 
ocoo 
0000 
ocoo 
0oco 
0000 
acao 
ocdoo 
0500 
0000 
ccco 
0000 
003F 
TAEA 
7985 


OFF 
eer 


0000 
TOFO 
0000 
0000 
7400 
7400 
ccoo0 
0000 
4C80 
9C00 
0000 
C802 
FFFE 
7803 
0000 
6211 
0004 
D480 
OL4L 
9680 
4400 
1084 
OOA4 
EASE 
TOBC 
18D0 
CA3C 
0235 
0000 
Oo1c 
6780 
0400 
TDA4 
O3E7 
4480 
C306 
0371 
7206 
039D 
7001 
4040 
O2F7 
4480 
6700 
0400 
T4FC 
CB4A 
C83E 
C202 
D400 
0000 
C5E3 
4040 
4040 


6600 
435E 
o0sCc 
OOEE 
cosod 
0000 
0001 
0000 
0000 
co00 
0000 
co00 
c000 
ccoo 
0029 
0000 
0000 
0000 
0000 
TAEA 
7963 


DISK UTILITY PROGRAM (DUP) 


The Disk Utility Program (DUP) provides the user 
with the ability to perform the following operations 
through the use of control records. 


e Store Disk System Format (DSF) programs, Disk 
Core Image (DCI) programs, and Data Files on 
the disk 


e Make the DSF programs, DCI programs, and 
Data Files on the disk available in printed, 
punched card, or punched paper tape output 


e Remove DSF programs, DCI programs, and Data 
Files from the disk 


e Determine the status of disk storage through a 
printed copy of LET/FLET 


e Modify the system 
e Perform other disk maintenance functions 


DUP control records are described in the section of 
this manual entitled DUP Control Records. DUP 
error messages are listed in Appendix A. 


GENERAL FLOW 


DUP is called into operation when the Supervisor 
recognizes a DUP Monitor control record (// DUP). 
The control portion of DUP is brought into core to 
read the next record from the input stream, which 
should be a DUP control record (*...). The DUP 
control record is printed and analyzed. LET is 
searched for the program specified, and switches 
and indicators are set in accordance with the infor- 
mation obtained from the control record. The DUP 
program required to perform the requested operation 
is then read into core from the disk and given control. 
The DUP program performs its assigned tasks, 
directed by the switches and indicators that were set 
according to the information on the DUP control rec- 
ord. Upon completion of its tasks, the DUP program 
prints a message and returns control to the control 
portion of DUP. The control portion indicates the 
completion of the DUP operation with a printed mes- 
sage and reads the next record from the input stream. 
If the record read is a Monitor control record other 
than comments, control is returned to the Supervisor 
to process the record. If the record read is a DUP 
control record, DUP maintains control and reads the 
next record. Comments Monitor control records are 
simply printed; blank records are passed. 


INFORMATION TRANSFER AND FORMAT 
CONVERSION 


Table 2 summarizes the DUP operations that transfer 
information from one area or medium to another area or 
medium. In addition, the format conversions made dur- 
ing the transfers of information are shown. The acronyms 
for the various formats are described below. The formats 
are described in Appendix C. 


Acronym Format 
DSF Disk System Format 
DDF Disk Data Format 
DCI Disk Core Image Format 
CDS Card System Format 
CDD Card Data Format 
CDC Card Core Image Format 
PTS Paper Tape System Format 
PTD Paper Tape Data Format 
PTC Paper Tape Core Image Format 
PRD Printer Data Format 


The user is advised to pay particular attention to Table 2 
when performing save/restore operations, e.g., dumping 
to cards and later using the cards to store the information 
back on the disk. Note that there may be more than one 
way to dump and store data/programs, as in dumping a 
DCI program to cards and later storing it back to disk. 


ALTERING LET/FLET 


The two tables LET and FLET constitute a directory 
to the contents of the User and Fixed areas on disk. 
The allocation of disk storage and, correspondingly, 
the contents of LET/FLET can be altered by the user 
only through the use of DUP. 

Before storing any DSF program, DCI program, 
or Data File, DUP searches LET/FLET to ensure that 
the name of the DSF program, DCI program, or Data 
File does not already appear in LET/FLET on the 
cartridge specified on the DUP control record. (If 
no cartridge is specified, the LET/FLET of every 
cartridge specified on the last JOB record is searched. ) 
Disk storage is allocated to the DSF program, DCI 
program, or Data File and a corresponding entry is 
made in LET/FLET only if the name is not found. 

When dumping or deleting a DSF program, DCI 
program, or Data File from the User/Fixed Area, the 
DSF program, DCI program, or Data File is located 
through LET/FLET using the name specified by the 
user in the DUP control record. 

A LET/FLET printout and description is contained 
in Appendix G. 


DUP CONTROL RECORDS 


DUP control records call IBM-supplied programs that 
perform operations involving the disk such as storing, 
moving, deleting, and dumping data and/or programs. 
DUP control records generally follow the format 
described below. Note that all fields in the control 
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Table 2, Summary of DUP Data Transfer Operations* 







"TO" Areo Symbols, with Formats 











“FROM” 
Symbols, with 


Area 


Formats 


puMP 
ae ad es oo Pe bliss aac oe yan aa ees 
Dume 
DUMP DUMP DUMP 
DUMPDATA | DUMP DUMPDATA | DUMP DUMPDATA | DUMP DONE 
DUMPDATA 
DUMP DUMP 
DUMPDATA DUMPDATA DUMPDATA DUMPDATA 
FX 
DUMPDATA Fe | soon } owe | pumepata | pump =| DUMP 
DUMPDATA 
STORE DUMP 
REDATA 
hie STOREMOD STOREMOD DUMP DUMP 
STOREDATA STOREDATA DUMPDATA DUMPDATA DUMPDATA 
pet STOREDATA [STOREMOD | cropenata [STOREMOD DUMPDATA | DUMP pump | bump 
676 :REDATAC STOREDATACI DUMPDATA DUMPDATA 
“ aca grea is laa oroanc] ore eee ee ee es 
STOREDATA |STOREDATACI| STOREDATA ronan] | STOREDATA voromne| | 
Lom | store | STOREDATA STORECI STORE | STOREDATA a ae 






U 


> 
















STORECI | STOREDATA 





STOREDATA 





PT Pome | | STOREDATA |STOREDATACI ronan] | STOREDATA |STOREDATACI 
STOREDATA {STOREDATACI| STOREDATA |STOREDATACI STOREDATA |STOREDATAC] 


* For this chart DUMPDATAE and STOREDATAE are the same as 
DUMPDATA and STOREDATA respectively. 








record except the count field are always left-justified obtained (the source). Columns 17 and 18 contain the 

and that unless otherwise stated, all fields are re- "TO" symbol, that is, the symbol specifying the disk 

quired. area or I/O device to which information is to be trans- 
ferred (the destination). The symbols that must be 

Column 1. Column 1 always contains an *(asterisk). used as the ''FROM" and ''TO'' symbols are shown 
below. 


Operation Field. Columns 2 through 12 (21 in the 
case of the DEFINE operation) contain the name of 








the desired DUP operation. Columns 2 through 6 Symbol Disk Area or I/O Device 

identify the basic operation (STOREDATACI); col- 

umns 7 through 12 (or 21) identify the extended oper- UA User Area, Disk 

ation (STOREDATACI). Where shown in the control FX Fixed Area, Disk 

record format, a blank character (b) is required with- ws Working Storage, Disk 

in or following the operation name. CD Card I/O device. If the 1134 has 
been defined as the principal input 

FROM and TO Fields. Columns 13 and 14 contain the device, CD is equivalent to PT. 

"FROM" symbol, that is, the symbol specifying the PT Paper Tape 

disk area or I/O device from which information is to be PR Principal print device 
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When used, the symbols UA, FX, and WS each 
specify an area on disk but do not identify the cartridge 
on which the area is found. 


Name Field. Columns 21 through 25 contain the name 
of the DSF program, DCI program, or Data File in- 
volved in the specified DUP operation. The name may 
consist of up to five alphameric characters, and 
must be left-justified within the field. The first 
character must be alphabetic (A-Z, $), and no em- 
bedded blank characters are allowed. 

When referencing a DSF program, DCi program, 
or Data File already stored on disk, the name must 
be an exact duplicate of the LET/FLET entry. 


Count Field. Columns 27 through 30 contain the count. 
The count is always a right-justified decimal integer. 
The count field is defined in the individual control rec- 
ord formats for those operations that require it. 


FROM and TO Cartridge ID Fields. Columns 31 
through 34 contain the cartridge ID of the cartridge 
containing the disk area from which information is to 
be obtained, that is, the ''FROM" (source) cartridge 
ID. Columns 37 through 40 contain the cartridge ID 
of the cartridge containing the disk area to which in- 
formation is to be transferred, that is, the 'TO" 
(destination) cartridge ID. 

Either or both of these cartridge IDs may be omit- 
ted. If a cartridge ID is omitted, and the correspond- 
ing FROM or TO field is the User or Fixed Area, a 
search is made of the LET/FLET on each cartridge 
specified on the JOB record, starting with the cartridge 
on logical drive zero (the master cartridge) and con- 
tinuing through logical drivefour. If the correspond- 
ing FROM or TO field is Working Storage, then a 
default to System Working Storage is made. Ifa 
cartridge ID is specified, the LET/FLET on the 
specified cartridge only is searched, or System Work- 
ing Storage is used. 

Use of the ''FROM" and "TO" cartridge IDs makes 
it possible for DUP (1) to transfer DSF programs, DCI 
programs, and Data Files from one cartridge to another 
without deleting them from the source cartridge, and 
(2) to operate on a DSF program, DCI program, or 
Data File even though the same name appears in the 
LET/FLET on more than one cartridge. 


Unused Columns. All unused columns between columns 
2 and 40 must be left blank. Columns 41 through 80 are 
ignored by DUP and are available for user's remarks, 


DUP Operations and Control Record Formats 
The following are descriptions of the various DUP 


operations. Each description consists of (1) a brief 
description of the processing performed, (2) a break- 


down of the control record for the operation, and (3) a 
table of the transfers and format conversions possible 
in the operation. 


*DUMP 


The DUMP operation moves information from the User/ 
Fixed Area on disk to Working Storage or makes infor- 
mation from the User/Fixed Area and Working Storage 
available as card, paper tape, or printed output. The 
print format is illustrated in Appendix C. 

The movement of DSF programs from the User/ 
Fixed Area to the output devices is accomplished in 
two phases; that is, the information is first moved to 
System Working Storage and then to the output device. 
Hence, information residing in Working Storage on the 
cartridge defined in the JOB Monitor control record 
by the Working Storage ID (see // JOB under Monitor 
Control Records) is destroyed during the DUMP oper- 
ation. Data Files and DCI programs are moved directly 
from the User/Fixed Area to the output devices. 

The number of disk blocks to be dumped is obtained 
from the LET/FLET entry, or, if the dump is from 
Working Storage, from the appropriate Working Storage 
Indicator in DCOM., 

The format of the DUMP control record is as follows. 


Card 
Column Contents Notes 


*DUMPb 
Reserved 
"FROM" 
symbol 























See chart below. If the dump is from 
Working Storage and the corresponding 
Working Storage Indicator is zero, an 
error message is printed (see DUP 

error messages, Appendix A). 










Reserved 
"TO" symbol 


















See chart below. If the dump is to 
cards and if a 1442-6 or 1442-7 is 
utilized, each card is checked to see 
that it is blank before it is punched. 

If a non-blank card is read, the 

System will WAIT at $PRET with /100F 
displayed in the Accumulator after the 
appropriate error message has been 
printed (see DUP Error Messages, 
Appendix A). 









Reserved 
Program name 







The name is required except when the 
dump is from Working Storage to the 
printer. 














Reserved 

tt FROM "W 
cartridge 
ID 

Reserved 





tt TO u 
cartridge 
ID 

Not used 
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transfers and format conversions performed by DUMP. Column Contents Notes 


Possible Sources, Possible Destinations, 
Including Formats Including Formats 
UA(DSF) WS(DSF) 


The count (right justified, decimal) 
specifies the number of sectors to be 
dumped, The count overrides the 
contents of the Working Storage In- 
dicator and the disk block count in 










the LET/FLET entry, 






" FROM" 
UA or WS (DSF) CIXCDS) cartridge ID 
PT(PTS) Reserved 
PR(PRD) "TO 


cartridge ID 
Not used 





UA or FX (DDF) WS(DDF) 








eo ag! ENeTDy The following chart is a summary of the information 
PR(PRD) transfers and format conversions performed by 





DUMPDATA. 


UA or FX (DCI) WS(DCI) 
OX Possible Sources, Possible Destinations, 
Including Formats Including Formats 
UA(DSF) WS(DDF) 


UA, FX, or WS (DCI) 
UA or WS(DSF) CIXCDD) 


*DUMPDATA PT(PTD) 
Tr. ye ee PR(PRD) 


the User/Fixed Area on disk to Working Storage or 






CDD 
makes information from the User/Fixed Area and pat a cc eke PreTD) 
Working Storage available in card, paper tape, or PR(PRD) 
printed output. The print format is similar to that UA(DCI) or FX(DDF) 
of DUMP (see Appendix C). The DUMPDATA oper- 


ation differs from the DUMP operation in that the in- UA, FX, or WS(DCT) eEIDy 


formation, after transfer, is always in data format, PR(PRD) 
and the amount of information transferred is dependent 
upon the count field of the DUMPDATA control record 
rather than the actual length of the program or data. 





Information is moved directly from the User/Fixed *DUMPDATAbE 
Area or Working Storage to the output devices. The 
contents of Working Storage are not changed. The DUMPDATADE operation moves information 
The count field (columns 27-30) in the DUMPDATA from the User/Fixed Area on disk to Working 
control record specifies the number of sectors to be Storage or makes information from the User/Fixed 
dumped. This number of sectors is dumped regard- Area and Working Storage available in card or 
less of the length of the DSF program, DCI program, printed output. The DUMPDATADE operation to an 
or Data File, as indicated in the LET/FLET entry or output device differs from the DUMPDATA opera- 
in the Working Storage Indicator. tion in that the information on disk, which is assumed 
The format of the DUMPDATA control record is to be in packed EBCDIC form, 40 words per 80 card 
as follows. columns, is converted to card image format. Thus, 


the print-out is one line per source card, 80 posi- 


Card tions, and the card output is an exact, full 80 column 
duplicate of the input cards in the corresponding 


STOREDATAE operation. 


*DUMPDAT Ab 





Reserv cd If the destination is Working Storage, no conver- 
"FROM" symbol | Sce chart below, sion takes place. 
Reserved : : é : 
"TO" symbol See chart below, If the dump is to Information is moved directly from the User/Fixed 

cards, and if a 1442-6 or 1442-7 is Area or Working Storage to the output devices. The 

utilized, each card is checked to ino 

soe Chace bias Geb ie 1g contents of Working Storage are HOE changed. 

punched, The count field (columns 27-30) in the DUMP- 
Reserved DATADE control record specifies the number of sec- 
Program name The name is required except when ; . F 

the dump is from Working Storage to tors to be dumped. This number of sectors is 

the printer, dumped regardless of the length of the Data File, 
osteldes as indicated in the LET/FLET entry or in the 

(continued) Working Storage Indicator. 
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The format of the DUMPDATADE control record 
is the same as that of DUMPDATA except that 
col, 11 contains an E. 


The following chart is a summary of the infor- 
mation transfers performed by DUMPDATADE. 


Possible Destinations 


Possible Sources 


UA or FX 


UA, 1X, or WS 





*DUMPLET 


The DUMPLET operation prints the contents of LET 
on the principal print device. In addition, the contents 
of FLET are also printed on the principal print device 
if a Fixed Area has been defined by the user. 
If the name of a DSF program, DCI program, or 
Data File is specified in the DUMPLET control record, 
only the LET/FLET entry corresponding to that name 
is printed. If a cartridge ID is specified in the control 
record, the LET/FLET on only that cartridge is printed. 
If neither name nor cartridge ID are specified, the en- 
tire contents of both LET and FLET on each cartridge 
specified on the JOB record are printed. A sample 
LET/FLET dump and description appears in Appendix G, 
The format of the DUMPLET control record is as 


Use of the name specifies that the 
LET/FLET entry for that name only is 
to be printed, 


follows. 



















Card 


Column Contents 






*DUMPLET 
Reserved 
Program name 


1-8 
9-20 
21-25 


















26-30 Reserved 
31-34 "FROM" 


! cartridge ID 
35-80. | Not used 


DUMPFLET 


The DUMPF LET operation prints the contents of FLET 
on the principal print device. | 

If the name of a DCI program or Data File is speci- 
fied in the DUMPFLET control record, only the FLET 
entry corresponding to that name is printed. Ifa 
csrtridge ID is specified in the control record, the 
FLET on that cartridge only is printed. If neither. 
name nor cartridge ID are specified, the entire con- 
tents of the FLET on each cartridge defined on the 
JOB record are printed. A sample LET/FLET dump 
and description appears in Appendix G. 

The format of the DUMPFLET control record is 
as follows. 






If an ID is specified, the LET/FLET 
on that cartridge only is printed, 







Card 
Column Contents 


*DUMPFLETb 
Reserved 


Program name Use of the name specifics that the 


FLET entry for that name only is to be 
printed, 


Reserved 
"FROM!" 

cartridge ID 
Not used 


If an ID is specified, the FLET on 
that cartridge only is printed, 





*STORE 


The STORE operation moves information from Work- 
ing Storage to the User Area or accepts information 
from the input devices and moves it to Working Stor- 
age or the User Area. 

All movement of information from the input devices 
to the User Area is accomplished in two phases; that 
is, the information is first moved to the System Work- 
ing Storage and then to the User Area. Hence, infor- 
mation residing in Working Storage on the cartridge 
defined in the JOB Monitor control record by the 
Working Storage ID (see // JOB under Monitor Control 
Records) is destroyed during the STORE operation. 

Since the User Area and Working Storage are ad- 
jacent areas, and since the User Area expands as 
needed into what had been Working Storage, DUP 
assumes that on any STORE operation to tne User 
Area, the contents of that Working Storage are des- 
troyed. Therefore, the appropriate Working Storage 
Indicator is reset to zero following the STORE oper- 
ation to the User Area. 

DUP makes the required LET entry (or entries) for 
each program stored. A LET entry is made for each 
entry point in the program. DUP supplies the disk 
block count required in the LET entry for the primary 
entry point. 


The format of the STORE control record is as 
follows. 


i ee (ee ee 
Column Contents Notes 


*STORE 
Reserved 
Subtype (for type 
3.4,5 and 7 


See "System Overlays" under Core Load 
Builder. 


subprograms only 





Reserved 


(continued) 
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Card 
Column Contents Notes 


"FROM" symbol 








If the STORE operation is from Working 
Storage and the corresponding Working 





Storage Indicator is zero, an error mess 
age is printed (see DUP Error Messages, 


Appendix A), 










Reserved 

"TO" symbol 
Reserved 
Program Name 









See Chart below 






The name is required except when the 
STORE operation is to Working Storage. 













Reserved 
"FROM" cartridge 
ID 
Reserved 
"TO" cartridge 





The following chart is a summary of the information 
transfers and format conversions performed by STORE. 












Possible Sources, 
Including Formats 


Possible Destinations, 
Including Formats 
UA(DSF) 


UA or WS(DSF) 


WS(DSF) 


CIYCDS) 
PT(PTS) 






*STOREDATA 


The STOREDATA operation moves information from 
Working Storage to the User/Fixed Area or accepts 
information from the input devices and moves it to 
Working Storage or the User/Fixed Area. DUP as- 
sumes that the input to the STOREDATA operation is 

in data format; the output from the STOREDATA oper- 
ation is always in data format. 

Information is moved directly from the input devices 
to the User/Fixed Area. The contents of Working Stor- 
age are not changed except that when storing to the 
User Area, the contents of Working Storage on that 
drive are destroyed since the User Area and Working 
Storage are adjacent areas, 

DUP makes the required LET/FLET entry. The name 
specified on the STOREDATA control record is the name 
used to generate the LET/FLET entry and is the name 
that must be used in all subsequent references to the 
Data File. DUP supplies the disk block count required 
in the LET/FLET entry if the source is cards or paper 
tape. If the source is Working Storage, the sector count 
specified in the STOREDATA control record is used. 


The format of the STOREDATA control record is 
as follows. 
32 









Card 
Column 


*STOREDATA 



















Reserved 
"FROM" symbol | See chart below, 
Reserved 
"TO" symbol See chart below, 
Reserved 





The name is not required when the 
STORE operation is from cards or 
paper tape to Working Storage, 


Program name 













Reserved 
Count 













If the source is Working Storage, the 
count is the number (decimal) of 
sectors of data to be stored, This. 
count overrides the contents of the 
Working Storage Indicator, If the 
source is cards, the count is the num- 
ber (decimal) of cards to be read. If 
the source is paper tape, the count is 
the number (decimal) of paper tape 
records to be read, 












"FROM" 
cartridge ID 
Reserved 
nTON : 
cartridge ID 
Not used 


The following chart is a summary of the information 


transfers and format conversions performed by 
STOREDATA. 


Including Formats Including Formats 
Fences, exo, coq | uA wana} 


*STOREDATAE 












The STOREDATAE operation moves information 
from Working Storage to the User/Fixed Area or 
accepts information from the card reader and moves 
it to Working Storage or the User/Fixed Area. The 
source cards are converted to packed EBCDIC for- 
mat, that is two columns per word or 8 cards per 
sector. Thus, the input is assumed to be in the 
1130 character set. and in the card code. 

When the source is Working Storage. no conver- 
sion takes place. 

Information is moved directly from the input device 
to the User/Fixed Area, The contents of Working 
‘Storage are not changed except that when storing to 
the User Area, the contents of Working Storage on 
‘that drive are destroyed since the User Area and 
Working Storage are adjacent areas. 

DUP makes the required LET/FLET entry. The 
name specified on the STOREDATAE control record 
is the name used to generate the LET/FLET entry 
and is the name that must be used in all subsequent 
references to the Data File. DUP supplies the disk 
block count required in the LET/FLET entry if the 
source is cards or paper tape. If the source is Work- 
ing Storage, the sector count specified in the STORE - 
DATAE control record is used. . 


Note that the corresponding dump operation, DUMP- 
DATADbE, transfers a whole number of sectors to cards. 
To avoid not wanted output, the number of cards stored 
should consequently be a multiple of 8 (blank cards can 
be added for that purpose). 

The format of the STOREDATAE control record is 
the same as that of STOREDATA except that col, 11 
contains an E, 


The following chart is a summary of the infor- 
mation transfers performed by STOREDATAE. 


Possible Destinations 
UA or FX 
UA, FX, or WS 










Possible Sources 


S 


*STOREDATACI 


The STOREDATACI operation moves information from 
Working Storage to the User/Fixed Area on disk or 
accepts information from the input devices and moves 
it to Working Storage or to the User/Fixed Area. If 
the input is from cards or paper tape, the STORE- 
DATACI operation assumes the input format to be 

card or paper tape cote image format, If the input 

is from Working Storage (the information has been 
previously dumped to Working Storage or stored in | 
Working Storage from an input device), the appropriate 
Format Indicator must indicate Disk Core Image format 
(DCI); otherwise, no STORE operation is performed. 
The output from the STOREDATACI operation is always 
in Disk Core Image format. 

All movement of information from the input devices 
to the User/Fixed Area is done directly; that is, the 
transfer is not made via Working Storage. Hence, the 
contents of Working Storage are not changed by the 
STOREDATACI operation when storing information from 
an input device to the Fixed Area. Note, however, 
that when storing to the User Area, the contents 
of Working Storage on that drive are destroyed, 

DUP makes the required LET/FLET entry. The 
name specified on the STOREDATACI control record is 
the name used to generate the LET/FLET entry and is 
the name that must be used in all subsequent references 
to the core image program. DUP computes the disk 
block count required in the LET/FLET entry from the 
count specified in the STOREDATACI control record. 

The format of the STOREDATACI control record is 
as follows. 


*STOREDATACI 


Card 
Column 


See chart below. 


"FROM" symbol 
Reserved 
"TO" symbol 


See chart below, 





Reserved 
Program name 


If the STORE operation is to Working 
Storage, the name is not required, 


Reserved 
Count The count (right justified, decimal) 
is the mumber of records in the core 
image input. The count is not re- 
quired if the source is Working 
Storage. 
it FROM tt 

cartridge ID 
Reserved 
tt To" 

cartridge ID 
Not used 





The following chart is a summary of the 
information transfers and format conver- 
sions performed by STOREDATACI. 

Possible Destinations, 


Including Formats Including Formats 


*STORECI 








The STORECI operation obtains an object pro- 
gram from Working Storage or from an input de- 
vice, converts it into a core image program using 
the Core Load Builder, and stores the core image 
program into the User/Fixed Area, 


The Core Load Builder is fetched to build a core 
image program for the STORECI operation as if 
execution were to follow; that is, that portion of 
the core load residing above core location 4096 
is placed in the System CIB, and LOCALs and/or 
SOCALs are placed in System Working Storage. 
The STORECI operation stores all these portions 
of the core image program into the "TO" 
(destination) area. 


The DCI program stored in the User/Fixed Area 
includes the Transfer Vector built by the Core 
Load Builder; however, neither the disk I/O 
subroutine nor any COMMON area is included. 
Figure 5 shows the layout of a DCI program as it 
is stored in the User/Fixed Area. No scale is 
intended in this illustration. 

DUP makes the required LET/FLET entry for 
the core image program as itis stored. The 
name specified on the STORECI control record 
is the name used to generate the LET/FLET 
entry and is the name that must be used in all 
subsequent references to the DCI program, DUP 
ovtains the disk block count required in the 
LET/FLET entry from the Core Load Builder. 
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The format of the STORECI control record is as 
follows. 


Card Card 


Column Contents Column | Contents 


SSTORES! 15-16 Reserved 
Disk I/O sub- This column specifies the disk 17-18 "TO" symbol 
routine indicator I/O subroutine to be loaded in- 19-20 Reserved 
to core by the Core Image Load- 94225 Program-nanie 
er for use by the core load dur- 26 Reserved 
ing execution 27-30 Conn 
Indicator Disk Subroutine 
0,1 DISK 1 
N DISK N 
blank or Z DISK Z 
all others An error message 
is printed (see 
DUP Error Mess- 
ages, Appendix A) 
Reserved 
LOCAL-can A punch in this column enables 
call LOCAL a LOCAL program to call an- 
indicator other LOCAL, Without a punch 
this is not possible. 
Special ILS A punch in this column indi - 
indicator cates that ILSs for this core 
load should be chosen from the 
special ILSs (see also //XEQ). 
"FROM" symbol See chart below. If the STORE 31 -34 "EROM" 


operation is from Working Stor- 


cartridge ID 


age and the corresponding 35-36 Rachwwcd 


Working Storage Indicator is 


37-40 "TO" cart- 


zero, an error message is print- . 
Z 8 P ridge ID 


ed (See DUP Error Message, 
Appendix A). 


41-80 








Notes 


See chart below. 


The count is the number (deci- 
mal) of FILES, NOCAL, LOCAL, 
and G2250 control records that 
follow the STORECI control 
record, These records are read 
by DUP for use by the Core 
Load Builder before the STORE 
operation is performed. Note 
that the mainline program 
name must not be used on the 
G2250 control records, Data 
files named in FILES record 
must be in Fixed Area, 


NOTE: The LOCAL-calls-LOCAL option is described in "Programming Tips and Techniques". 












LOCAL/ 
SOCAL 
Flipper 









Transfer 


COMMON | Vector 





Mainline {Subprograms 


Core Image Header 


Figure 5. Layout of a Core Image Program Stored in the User/Fixed Area 
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The following chart is a summary of the information 
transfers and format conversions performed by 
STORECI. 


Possible Sources, Possible Destinations, 
Including Formats Including Formats 
WS( DSF) UA or FX(DCI) 









*STORE MOD 


The STOREMOD operation moves information from 
Working Storage into the User/Fixed Area. If the name 
of the DSF program, DCI program, or Data File speci- 
fied on the STOREMOD control record is identical to an 
entry in LET/FLET (that is, a DSF program, DCI pro- 
gram, or Data File of the same name already resides 
in the User/Fixed Area), the information in Working 
Storage overlays (replaces) that DSF program, DCI 
program, or Data File in the User/Fixed Area. The 
format of Working Storage must match the format of 
the LET/FLET entry which is to be replaced. 

If the name on the STOREMOD control record does 
not match an entry in LET/FLET, a simple STORE 
operation is performed (see *STORE). 

The STOREMOD operation permits the user to mod- 
ify a DSF program, DCI program, or Data File in the 
User/Fixed Area without changing its name or relative 
position within the area. However, the length of the 
DSF program, DCI program, or Data File in Working 
Storage cannot be greater than the length of the DSF 
program, DCI program, or Data File that it replaces 
in the User/Fixed Area. No change is made to the 
LET/FLET entry as a result of this operation. 


The format of the STOREMOD control record is as 
follows. 


Card 
Column Contents 


*STOREMODb 
Reserved 
"FROM" symbol 
Reserved 
"TO" symbol 
Reserved 
Program name 
Reserved 
i FROM u 
cartridge ID 
Reserved 
WW To" 
cartridge ID 
Not used 















The source is always Working Storage. 








See chart below. 













The following chart is a summary of the information 
transfers and format conversions performed by 
STOREMOD. 


Including Formats Including Formats 







*DELETE 


The DELETE operation removes a specified DSF pro- 
gram, DCI program, or Data File from the User/ 
Fixed Area. The deletion is accomplished by the 
removal of the LET/FLET entry (or entries) for the 
DSF program, DCI program, or Data File, including 
the dummy entry for associated padding, if any. 

If a DSF program, DCI program, or Data File is 
deleted from the User Area, that area is packed so 
that (1) the areas represented by LET entries are con- 
tiguous, and (2) Working Storage can be increased by 
the amount of disk storage formerly occupied by the 
deleted DSF program, DCI program, or Data File. 

If a DCI program or Data File is deleted from the 
Fixed Area, no packing of that area occurs. The 
FLET entry for the deleted DCI program or Data File, 
including the dummy entry for associated padding, if 
any, is replaced by a single dummy entry (1IDUMY) 
representing the area formerly occupied by the deleted 
DCI program or Data File and its padding. DUP store 
operations may be used to place new entries in the 
Fixed Area. 

The contents of Working Storage are not destroyed 
by the DELETE operation. 

The format of the DELETE control record is as 
follows. 


Card 
Column Contents Notes 


*DELETEb 
Reserved 
Program name 
Reserved 
"FROM" The deletion is performed on the specified 
cartridge only, If no cartridge ID is 
specified, and the program or data file 
name (21-25) is present in LET/FLET of 
more than one cartridge specified for this 
JOB, the deletion will be from the first 
logical drive on which the name is 

found, 


cartridge ID 





Not used 
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*DEFINE 


The DEFINE operation (1) initially establishes the size 
of the Fixed Area, (2) increases or decreases the size 
of the Fixed Area, (3) deletes the Assembler or 
FORTRAN Compiler, or both, from the System Area. 

If the Assembler and/or FORTRAN Compiler is to be 
deleted, this deletion must be performed prior to de- 
fining the Fixed Area, (which is restricted to the master 
cartridge), or after completely removing a defined 
Fixed Area, 

Definition of a Fixed Area on disk allows the user to 
store DCI programs and Data Files in fixed locations, 
which can subsequently be referred to by sector address. 
The Fixed Area is defined in cylinder increments (one 
cylinder minimum). When a FIXED AREA is defined, 
one cylinder is always reserved for FLET, i.e., the 
initial definition of the Fixed Area must be two cylinders. 

Increases and decreases in the size of the Fixed 
Area must also be made in cylinder units; however, the 
Fixed Area cannot be decreased by a number greater 
than the number of unused cylinders at the end of the 
last program or data file in the Fixed Area. If all DCI 
programs and Data Files have been deleted from the 
Fixed Area (IDUMY entries) and the Fixed Area is de- 
creased to less than two cylinders by a DEFINE FIXED 
AREA control record, the remaining Fixed Area, as well 
as FLET, is deleted. The Fixed Area and FLET will 
likewise be deleted if the DEFINE FIXED AREA control 
record specifies a decrease that exceeds the number of 
cylinders of Fixed Area on the cartridge. 

The control record format for definition of the Fixed 
Area is described below. 


Card 
Column Contents Notes 


*DEFINEb 
FIXEDbAREA 
Reserved 
Count In initial definition of the Fixed Area, the 
count is the number (decimal) of cylinders 
to be allocated as the Fixed Area which 
must INCLUDE one cylinder for FLET, thus 
a minimum of two cylinders must be speci 
fied. After initial definition, the count is 
the number of cylinders by which the Fixed 
Area is to be increased or decreased, 
Sign If the Fixed Area is being decreased, this 
: column contains a minus sign; otherwise, 
it is blank, 
Reserved 
Cartridge ID 


This ID specifies the cartridge which is to 
be altered, 


Not used 


Deletion of the Assembler and/or FORTRAN Com- 
piler causes the specified Monitor programs to be 
removed from the IBM System Area on the master 





cartridge. The IBM System Area is then packed so 
that following programs and areas occupy the areas 
formerly occupied by the deleted Monitor programs. 
SLET entries are updated to reflect the new disk stor- 
age allocation for the Monitor programs. The reload 
table is used to make adjustments in the programs 
which use disk storage addresses from SLET. If the 
Assembler and/or FORTRAN Compiler is to be deleted, 
the user must perform this deletion before defining the 
Fixed Area on the master cartridge, or after completely 
removing the Fixed Area. After the Assembler and/or 
FORTRAN Compiler have been deleted, neither can be 
restored without performing an initial load. 

The control record format for deletion of the Assem- 
bler and/or FORTRAN Compiler is described below. 


Card 
Column Contents 


*DEFINEb 


VOIDb 
ASSEMBLER or 

FORTRANbb 
Not used 





*DWADR 


The DWADR control record causes a sector address to 
be written on every sector of Working Storage on the 
cartridge specified by the DWADR control record, or 
if no ID is specified, on the System Working Storage. 
The operation restores correct disk sector addresses 
in Working Storage if they have been modified during 
execution of a user's program. 

The contents of Working Storage prior to the operation 
are destroyed. 

Following the sector address word (word 0), the first 
240 words of each sector contain the sector address of 
that sector, including the drive code. The remaining 
80 words of each sector contain zeros. 

A dummy //DUP record is printed on the principal 
printer following the printing of the *DWADR control 
record and the DUP exit message. 

The format of DWADR control record is as follows. 


Card 
Column Contents Notes 


*DWADR 
Reserved 


Cartridge ID 


This ID specifies the cartridge on 
which the Working Storage sector 
addresses are to be rewritten, 
Not used 





ASSEMBLER 


The basic language for the Assembler in the Monitor 
system is described in the publication IBM 1130 Assem- 
bler Language (Form C26-5927). Therefore, this sec- 
tion contains only a general description of the Assem- 
bler program and its operation. Assembler control 
records are described in the section Assembler Control 
Records; Assembler messages, error messages, and 
error detection codes are listed in Appendix A. 

The 1130 Monitor Assembler cannot be operated 
independently of the Monitor system; however, the 
Assembler can be deleted from the Monitor system if 
desired (see *DEFINE under DUP Control Records). 

An ASM Monitor control record is used to call the 
Assembler into operation. The Assembler reads the 
source program, including control records, from the 
principal input device. After assembly, the object 
program resides in System Working Storage. The 
object program can now be (1) called for execution 
with an XEQ Monitor control record, (2) stored in the 
User/Fixed Area with a STORE or STORECI operation 
(see DUP Control Records), or (3) punched as a binary 
deck or tape with a DUMP operation (see DUP Control 
Records). 

If symbol table overflow exceeds the number of 
sectors allocated for overflow by the OVERFLOW 
SECTORS control record (a maximum of 32 sectors is 
allowed), an Assembler error message is printed. 

The approximate maximum size of the symbol table 
(including overflow) and, hence, the maximum number 
of symbols that can be defined in a program, is deter- 
mined by the size of core storage as indicated below: 


Size of Core Storage (Words) 4096 8192 16384 32768 
Symbol Table Size 3500 4865 7595 13055 


CARD OPERATION 


The source deck (including Assembler control cards) 
can be assembled either as part of a job or as a separate 
job. In either case, the source deck must be preceded 
by an ASM Monitor control record. 


One-Pass Mode 


In most cases, the source deck is passed through the 
1442 Card Read Punch or 2501 Card Reader only once. 
If the assembly is part of a stacked job, the assembly 
proceeds without operator intervention. If the END 
card of the source deck is the last card in the hopper, 
press reader START when the reader goes not-ready. 


The assembly of a program may start in one-pass 
mode and then change to two-pass mode. This condi- 
tion occurs when the intermediate output of pass 1 
exceeds the capacity of Working Storage less the 
number of overflow sectors specified. The system 
WAITs at the preoperative error trap ($PRET) with 
/100E (1442 input) or /400E (2501 input) displayed in 
the Accumulator (see Assembler error messages, 
Appendix A). If this assembly is part of a stacked 
job, operator intervention is necessary to prevent the 
Assembler from reading the Monitor control card fol- 
lowing the END card of the source deck. Remove the 
stacked input behind the END card and press PROGRAM 
START. The assembly will continue in two-pass mode 


Two-Pass Mode 


In some cases it may be known in advance that it is 
necessary to assemble in two-pass mode, that is, pass 
the source deck through the 1442 Card Read Punch or 
the 2501 Card Reader twice. If a copy of the source 
deck, including all Assembler control records, is 
placed behind the original, the source deck will be read 
twice, and a stacked job is again possible even when in 
two-pass mode. Two-pass mode is not allowed with 
1134 or Keyboard input. 

It is important to note that when a deck is being 
assembled in two-pass mode, the Assembler is ready 
to read another card as soon as pass 1 processing of the 
END card is completed. Therefore, a Monitor control 
record must not follow the END card the first time (or 
the first END card if the deck has been copied), or the 
Assembler will trap this record and execute a CALL 
EXIT. 

If the deck has not been copied, the END card should 
be the last card in the hopper. Press reader START to 
process the last card and complete pass 1. The Assem- 
bler will then try to read cards for pass 2; therefore, 
the source deck (with its control cards) should be re- 
moved from the stacker and placed in the hopper. Press 
reader START to begin pass 2 of the assembly. Opera~ 
tion is continuous if the source deck is taken from the 
stacker during pass 1 and placed in the hopper behind 
the END card. If the END card is the last card in the 
hopper, press reader START to complete the assembly. 


Punch Symbol Table Option 


If the *PUNCH SYMBOL TABLE Assembler control 
card is used and the principal input device is the 1442 
Card Read Punch, sufficient blank cards must be 
placed after the END card and before the next Monitor 
control record in the stacked job input. (If a non-blank 
card is read when punching on the 1442-6, 7 the 
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Assembler will WAIT at the preoperative error trap 
($PRET) with /100F displayed in the accumulator). In 
estimating the number of blank cards required, allow 
one card for each symbol used in the source deck. 
Unnecessary blank cards will be passed until the next 
Monitor control record is read. 

If the system configuration is 2501/1442, place 
blank cards in the 1442 hopper and press 1442 START 
before beginning the assembly. 


Note: Do not place non-blank cards in the 1442-5. The 
punch may be damaged if an attempt is made to punch 
a hole where a hole exists. No error is detected. 


KEYBOARD/PAPER TAPE OPERATION 


Most of the procedures for card input are also applicable 
to keyboard/paper tape input. The LIST DECK, LIST 
DECK E, PUNCH SYMBOL TABLE, and TWO PASS 
MODE options are not allowed with keyboard/paper tape 
input. 


Note: The paper tape input to the Assembler is punched 
in PTTC/8 code, one frame per character. The format 
of the keyboard/paper tape control records is the same 
as the card format. The format of the symbolic pro- 
gram keyboard/paper tape records is the same as card 
format except for the following: 


e The record does not contain leading blanks corre- 
sponding to card columns 1-20. 


e The record does not contain blanks or data corre- 
sponding to card columns 72-80. 


e Trailing blanks need not be used. Therefore, up to 
51 characters (corresponding to card columns 21-71) 
can appear in the record. 


The assembly is continuous, and at the end of the 
assembly control is returned to the Supervisor, which 
will then pass any delete codes between the Assembler 
and the next Monitor control record. The assembler 
will also pass any codes that may occur between paper 
tape records of the source program. 

The first record processed by the Assembler is 
checked for an asterisk in column one. If an asterisk 
is present in column one, this record is treated as an 
Assembler control record. This procedure continues 
until the first non-asterisk character is detected in 
column one. For this record, and all records follow- 
ing (up to and including the END statement), column 
one is treated as if it were column twenty-one; there- 
fore, the first non-control record should not be an * 
comments record. 
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ORIGIN OF MAINLINES 


The origin of a relocatable program is always set at 
zero unless otherwise specified in the source program. 

The origin of an absolute mainline program, if not 
otherwise specified in an ORG statement, is set to the 
end of DISKN plus 30 (the core image header record is 
30 words long). 

If the program requires DISKZ, DISK1, or DISKN, 
the origin may be set to the end of the requested disk 
I/O subroutine plus 30. 

If no disk I/O subroutine is used by the program, 
the origin may be set as low as the end of DISKZ plus 30. 

Note that if DISKZ is in core during execution (re- 
quired or not), the ORG statement for the program being 
executed must specify an even core address greater 
than or equal to the end of DISKZ plus 30. An ORG to 
the end of DISKZ plus 30, followed by a BSS or a BES 
of an odd number of locations is not allowed. This 
sequence has the same effect as an ORG to an odd 
location. 


ASSEMBLER CONTROL RECORDS 


Assembler control records are used to specify options 
affecting an assembly and its output. These control 
records must precede the source program and can be 

in any order (see Figure 6). Assembler control records 


Next 
Monitor 
Control 
Record 







Assembler Source 
Statements 


Assembler Control Records 


Figure 6, Layout of an Assembler Input Deck 


can be entered in card or paper tape form along with the 
source program deck or tape or, unless otherwise 
noted, may be entered from the Keyboard along with the 
source statements (see // TYP under Monitor Control 
Records). 

All Assembler control records have the following 
format: 


Column 1: * (asterisk) 
2-71: Option 


If an Assembler control record contains an asterisk in 
column 1, but the option does not agree, character for 
character, with its valid format, as described below, 
the asterisk is replaced by a minus sign on the control 
record listing. The erroneous control record is ignored 
and no other error occurs. 

Assembler control records can be written in free 
form; that is, any number of blanks may occur between 
the characters of the option. However, only one blank 
must separate the last character in the option, and the 
first character of any required numeric field. Remarks 
may be included in the control record following the 
option or numeric field; however, at least one blank 
must separate the last character of the option or numeric 
field and the remarks. 


*TWO PASS MODE 


This control record causes the Assembler to read the 
source deck twice. TWO PASS MODE must be specified 
when: 


e The user desires a list deck to be punched on the 
1442 Card Read Punch, model 6 or 7 (see LIST DECK 
and LIST DECK E). 


@ One-pass operation cannot be performed because the 
intermediate output (source records) exceeds the 
capacity of Working Storage. 


This control record is ignored if source statements are 
entered from the Keyboard or the 1134 Paper Tape 
Reader. 

The format of the TWO PASS MODE control record 
is as follows. 


Card 
Column Contents Notes 






TWO PASS MODE 
Not used 





*LIST 


This control record causes the Assembler to provide a 
printed listing on the principal print device (1403 
Printer, 1132 Printer, or Console Printer). The format 
of the printed listing corresponds to that of the list 
deck (see Figure 7). If the LIST control record is not 
used, only those statements in which assembly errors 
are detected will be listed. All BSS, BES, ORG, and 
EQU statements in which errors are detected will be 
unconditionally listed in Pass 1 of the assembly. 
A sample program listing appears in Appendix J. 
- The format of the LIST control record is as follows. 


Card 
Column Contents Notes 










1 * Asterisk 
2-71 LIST 
72-80 Not used 





*LIST DECK 


This control record causes the Assembler to punch a 
list deck if the principal I/O device is a 1442 model 6 or 
7 Card Read Punch. This option requires two passes 

of the source deck (TWO PASS MODE). The list deck 
format is shown in Figure 7. Object information is 
punched into columns 1-19 of the source deck during 
pass 2. 

This control record is ignored if entered from the 
2501 Card Reader, the 1134 Paper Tape Reader, or the 
Keyboard. 

The format of the LIST DECK control record is as 


follows. 





Card 
Column Contents 






1 * Asterisk 
2-71 LIST DECK 
72-80 Not used 





*LIST DECK E 


This control record causes the Assembler to punch 
assembly error codes only (columns 18-19) in the list 
deck output (see LIST DECK). The principal I/O device 
must be a 1442 model 6 or 7 Card Read Punch. The 
Assembler error detection codes are listed in 
Appendix A. 

This control record is ignored if entered from the 
2501 Card Reader, the 1134 Paper Tape Reader, or 
the Keyboard. 
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Blank 
Address of the 


Instruction; 
Address 
Assigned to 
the Label, if any 











First Word of 
the Assembled 
Code* 


Error Flags, 
if any 


Second Word of 
the Assembled 


Relocation Indicators; 
Col. 7 is Blank for One- 


Word Instructions or DC Code* 
or 
Exponent for an 
XFLC Statement. 


Label 


Card 
Column 














Operands 


*For EBC statements, columns 9-12 contain the number of EBC characters. 





Card 


zy Ee EE ET sof TP ET TT ET fool TTT EE EE EE Pf eefcs] TE TT 9} Column 


ID and Sequence 
Number, if any 





Blank 


For BSS and BES statements, columns 9-12 contain the number of words reserved for the block. 
For ENT, ILS, and ISS statements, columns 9-16 contain the entry label in packed EBCDIC code. 


Figure 7, List Deck Format 


The format of the LIST DECK E control record is as 
follows: 


Card 
Column 
1 














* Asterisk 
2-71 LIST DECK E 
72-80 Not used 


*PRINT SYMBOL TABLE 


This control record causes the Assembler to provide a 
printed listing of the symbol table on the principal print 
device. Symbols are grouped five per line. Multiply- 
defined symbols are preceded by the letter M; symbols 
with absolute values in a relocatable program are pre- 
ceded by the letter A. The M and A flags, however, 
are not counted as assembly errors. 

The format of the PRINT SYMBOL TABLE control 
record is as follows. 


40 






Card 
Column Contents Notes 


1 oe Asterisk 
2-71 
72-80 


PRINT SYMBOL 
*PUNCH SYMBOL TABLE 











TABLE 
Not used 






This control record causes the Assembler to punch the 
symbol table as a series of EQU source cards. Each 
source card contains one symbol. These cards can be 
used as source input to the System Symbol Table when 
the SAVE SYMBOL TABLE control record is used with 
an assembly in which they are included: 

This control record is ignored if entered from the 
1134 Paper Tape Reader or the Keyboard. 

The format of the PUNCH SYMBOL TABLE control 


record is as follows. 


Car 
Column Contents 
















PUNCH SYMBOL 
TABLE 
Not used 







d 

1 * 
2-71 
72-80 





*SAVE SYMBOL TABLE 


This control record causes the Assembler to save the 
symbol table generated in this assembly on the disk as a 
System Symbol Table. This System Symbol Table is 
saved until the next assembly containing a SAVE 
SYMBOL TABLE control record causes a new assembly- 
generated symbol table to replace it. This control rec- 
ord is also used with the SYSTEM SYMBOL TABLE con- 
trol record to add symbols to the System Symbol Table. 
The SAVE SYMBOL TABLE option requires that this 
assembly be absolute. If any assembly errors are de- 
tected, or if the symbol table exceeds 100 symbols, the 
symbol table is not saved as a System Symbol Table, 
and an assembly error message is printed (see Assem- 
bler Error Messages, Appendix A), 

The format of the SAVE SYMBOL TABLE control 


record is as follows. 
a : : 
Column Contents Notes 
t * Asterisk 


2-71 SAVE SYMBOL 
TABLE 
Not used 









*SYSTEM SYMBOL TABLE 


This control record causes the Assembler to add the 
System Symbol Table (previously built by a SAVE 
SYMBOL TABLE assembly) to the symbol table for 
this assembly as the assembly begins. This control 
record is used when it is desired to refer to symbols 
in the System Symbol Table without redefining those 
symbols in the source program, or it is used together 
with the SAVE SYMBOL TABLE control record when it 
is desired to add symbols to the System Symbol Table. 
All symbols in the System Symbol Table have absolute 
values. 

The format of the SYSTEM SYMBOL TABLE control 
record is as follows. 


Card j : 
Column Contents Notes 


: : 


















TABLE 


2-71 SYSTEM SYMBOL 
- Not used 


72-80 


*LEVEL 


This control record specifies the interrupt levels 
serviced by an ISS and, hence, the associated ILS sub- 
routines. It is required for the assembly of an ISS sub- 
routine. The interrupt level number is a decimal num- 
ber in the range 0-5. If the device operates on more 






than one interrupt level (for example, the 1442 Card 
Read Punch), one LEVEL control record is required for 
each interrupt level on which the device operates. At 
least one blank must separate the word LEVEL and the 
interrupt level number. 

If a LEVEL control record is not used when assem- 
bling an ISS subroutine, an Error Message is printed at 
the end of the assembly (see Assembler Error Messages, 
Appendix A). 

The format of the LEVEL control record is as 
follows. 


Card 
Column Contents Notes 


1 * Asterisk 
2-71 LEVELbn n is an interrupt level number 
72-80 | Not used 









*OVERFLOW SECTORS 


This control record specifies the number of sectors of 
Working Storage to be used by the Assembler for sym- 
bol table overflow, The number of overflow sectors (nn) 
is a decimal number between I and 32. If the entry is 
zero or blank, no overflow sectors are allowed. If the 
entry is greater than 32, only 32 overflow sectors are 
allowed, If this control record is not used, no overflow 
sectors are allowed; if itis used, the Assembler act- 
ually allocates one more sector than the number speci- 
fied. This additional sector is used as a working sector 
when the Assembler is handling symbol table overflow. 

The format of the OVERFLOW SECTORS control 
record is as follows. 


Card 
Column Contents Notes 


1 K 
OVERFLOW 

SECTORSbnn 

Not used 







Asterisk 
nn is the number of sectors assigned 
to symbol table overflow. 













*COMMON 





This control record specifies the length (in words) of 
COMMON as defined by a FORTRAN core load that is 
to be executed prior to the execution of the program 
being assembled. Use of this control record provides 
for a COMMON area to be saved in linking between 
FORTRAN mainlines and Assembler mainlines, 


The format of the COMMON control record is as 
follows. 


Card aaa 
Column Contents Notes 


Asterisk 
nnnnn is the number of words of 
COMMON (decimal) to be saved 
between links, 








* 
COMMONbnnnnn 






Not used 
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FORTRAN COMPILER 


The basic language for the FORTRAN Compiler in the 
Monitor system is described in the publication IBM 
1130/1800 Basic FORTRAN IV Language (Form C26- 
3715); therefore, this section contains only a general 
description of the Compiler and its operation. The 
FORTRAN Compiler control records are described in 
the section FORTRAN Control Records; FORTRAN 
messages and error messages are listed in Appendix A. 

The FORTRAN Compiler cannot be operated inde- 
pendently of the Monitor system; however, it can be 
deleted from the Monitor system if desired (see 
*DEFINE under DUP Control Records). 

A FOR Monitor control record is used to call the 
FORTRAN Compiler into operation. The Compiler 
reads the source program, including control records, 
from the principal input device. After compilation, the 
object program resides in System Working Storage and 
can be (1) called for execution with an XEQ Monitor 
control record, (2) stored in the User/Fixed Area with 
a STORE or STORECI operation (see DUP Control 
Records), or (3) punched as a binary deck or tape with 
a DUMP operation (see DUP Control Records). 

The 1130 FORTRAN I/O logical unit numbers and 
record sizes are listed in Table 3. 


//b RECORDS READ DURING THE EXECUTION OF 
A FORTRAN PROGRAM 


During the execution of a FORTRAN program, any //b 
record encountered by CARDZ, READZ, or PAPTZ will 
cause an immediate CALL EXIT. The Supervisor will 
then search for the next valid Monitor control record 
entered from the reader, Only the //b characters on 
the record trapped by CARDZ, READZ, or PAPTZ are 
recognized. Any other data entered in this record is 
not available to programs in the Monitor system. The 
record is not listed. For off-line listing purposes, 
however, this record can contain comments (e.g., 

// END OF DATA). 


FORTRAN CONTROL RECORDS 


Before a FORTRAN program is compiled, the user can 
specify certain options affecting both the compilation 
and execution of the program by means of control rec- 
ords. These control records must precede the source 
program and can be in any order (see Figure 8). 
FORTRAN control records can be entered in card 
or paper tape form along with the source program deck 
or tape, or they may be entered from the Keyboard 
along with the source statements (see // TYP under 
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Monitor Control Records), The IOCS, NAME and 
ORIGIN control records can be used only in mainline 
programs; the others can be used in both mainline 
programs and subprograms, 


All FORTRAN control records have the following 
format: 


Column 1: *(asterisk) 
2-72: Option 


Table 3, FORTRAN I/O Logical Unit Designations and 
Record Sizes 


nice D. Kind of rave a 
nit evice Transmission Allowed 
Number 


Console Printer Output only 













1442 Card Read 80 


Punch 





Input/output 





1132 Printer Output only 1 carriage 


control + 120 





















1134/1055 
Paper Tape 
Reader Punch 


80, plus max. of 
80 case shifts for 
PTTC/8 code, 

plus NL code. 


Input/output 




















1403 Printer Output only 1 carriage 


control + 120 


Keyboard Input only 








1627 Plotter Output only 
2501 Card Reader 
1442 Card Punch 


UDISK 





Input only 
Output only 












Unformatted 
input/output 
without data 
conversion 


*Unformatted disk |/O comprises 320 word records (including a two-word 
header). The first word of the header must contain the count of the phys- 
ical record within the logical record (see example following). The second 
word of the header must contain the number of effective words in the in- 
dividual physical record. The second word of the header of the last phys- 
ical record within a logical record must have the sign bit (-) on. Unform- 
atted disk characters are stored in as they appear in core storage. 


Example: 
DIMENSION A (400) 
WRITE (10) A 


800 words 


Physical records (maximum record 
length 320 words due to disk sector size) 


[1 [sie Toate worn 
[a [oe_[eara worn | 


164 and sign bit (/80A4). 


Logical record 
(total number of 
words to be written) 


Not/FFSC. 


An end-of-file record occupies one sector. Word one of the Neader must 
be 1 and word two must be a negative zero (/8000). 


Next Monitor 
Control Record 


FORTRAN Source 
Statements 





Figure 8, Layout of a FORTRAN Compiler Input Deck 


If a FORTRAN control record contains an asterisk in 
column 1, but the option does not agree, character for 
character, with its valid format, as described below, 
the asterisk is replaced by a minus sign on the control 
record listing. The erroneous control record is ignored 
in the compilation and the option is not performed; how- 


ever, no error results. 

The same action is taken if in an ORIGIN record 
the address is not between 0 and 32767 (decimal) or 
0000 and 7FFF (hexadecimal), 

FORTRAN control records can be written in free 
form; that is, any number of blanks may occur between 
the characters of the option. No remarks are allowed. 


#IOCS(. . .) 


This control record is required to specify any I/O de- 
vice that is to be used during execution of the program; 
however, only the devices required should be included. 
Because the IOCS control record may appear only in the 
mainline program, it must include all the I/O devices 
used by all FORTRAN subprograms that are called. 

The device names must be in parentheses with a comma 
between each name. The valid names and the devices 
to which they correspond are listed below: 


Name Device 
CARD 1442 Card Read Punch, Model 6 or 7 
2501 READER 2501 Card Reader 
1442 PUNCH 1442 Card Punch, Model 5 (1442 
Model 6 or 7 if used as a punch only) 
TYPEWRITER Console Printer 
KEYBOARD Keyboard 


1132 Printer 
1403 Printer 
1134/1055 Paper Tape Reader/Punch 


1132 PRINTER 
1403 PRINTER 
PAPER TAPE 


Name Device 


PLOTTER 1627 Plotter 
DISK Disk 
UDISK Disk (unformatted disk I/O) 


Note that CARD is used for the 1442 Card Read Punch, 
Model 6 or 7 and that 1442 PUNCH is used for the 1442 
Card Punch, Model 5 (1442 PUNCH may be used with a 
1442 Model 6 or 7 if the function is punch only, 1442 
PUNCH uses less core). These two names are mutually 
exclusive; therefore, the use of both the CARD and 1442 
PUNCH IOCS Control Records in the same compilation is 
not allowed. 

Subprograms that are a part of a FORTRAN core load 
but are written in Assembler language can use any I/O 
subroutines for any device that is not specified on the 
IOCS control record. Otherwise they must use the same 
I/O subroutine as the FORTRAN subprogram. 

Any number of IOCS control records can be used to 
specify the required device names. 

The format of the IOCS control record is as follows. 


Card 
Column Contents Notes 


* Asterisk 


IOocS dis a valid device name selected 


(d, dj eee, d) from the above list, 


Not used 





*LIST SOURCE PROGRAM 


This control record causes the Compiler to list the 
source program on the principal print device as itis 
read in. 

The format of the LIST SOURCE PROGRAM control 
record is as follows: 


Card 
Column Contents Notes 


: 


2-72 | LIST SOURCE 
*LIST SUBPROGRAM NAMES 










PROGRAM 
Not used 





73-80 


This control record causes the Compiler to list on the 
principal print device the names of all subprograms 
(including EXTERNAL subprograms) called directly by 
the compiled program. 

The format of the LIST SUBPROGRAM NAMES con- 
trol record is as follows. 


Card 
Column Contents Notes 


| | 


2-72 | LIST 
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SUBPROGRAM 
NAMES 


73-80 | Not used 


*LIST SYMBOL TABLE 


This control record causes the Compiler to list the fol- 
lowing items on the principal print device: 


e Variable names and their absolute or re- 
lative addresses 


e Statement numbers and their absolute or re- 
lative addresses 


e Statement function names and their absolute or 
relative addresses 


@ Constants and their addresses 


The format of the LIST SYMBOL TABLE control 
record is as follows. 


Card 
Column Contents Notes 
1 


LIST SYMBOL 
TABLE 
Not used 

This control record causes the Compiler to list the 
source program, subprogram names, and the symbol 
table on the principal print device. If this control 
record is used, the other LIST control records are not 
required. 

The format of the LIST ALL control record is as 
follows. 


Card 
Column Contents Notes 
1 Asterisk 
2-72 | LIST ALL 
73-80 | Not used 


*EXTENDED PRECISION 














2-72 
73-80 


*LIST ALL 










This control record causes the Compiler to store var- 
iables and real constants in three words instead of two 
and to generate linkage to extended precision subpro- 
grams. 

The format of the EXTENDED PRECISION control 
record is as follows. 


Card 
Column Contents Notes 


1 * Asterisk 
2-72 | EXTENDED 
PRECISION 
73-80 | Not used 
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*ONE WORD INTEGERS 


This control record causes the Compiler to allocate one 
word of storage for integer variables rather than the 
same allocation (two or three words) used for real var- 
iables. Whether this control record is used or not, 
integer constants are always contained in one word. 
When this control record is used, the program does not 
conform to the USASI Basic FORTRAN standard for 
data storage and may require modification in order to be 
used with other FORTRAN systems. 

The format of the ONE WORD INTEGERS control 
record is as follows. 


* 
ONE WORD 

INTEGERS 
Not used 










Card 
Column 





Asterisk 











*NAME 


This control record causes the Compiler to print the 
specified program name at the end of the listing. The 
name is five consecutive characters (including blanks) 
starting at the first non-blank column following NAME. 
At least one blank must separate the word NAME and 
the mainline program name, 

The format of the NAME control record is as 
follows. 


Card 
Column Contents 


* Asterisk 


NAMEDbxxxxx XXXxx is the name of the mainline 


object program, 





Not used 


This column record causes the Compiler to print the 
information in columns 3-72 at the top of each page of 
compilation printout when a 1403 Printer or 1132 
Printer is the principal print device. It initially causes 
a skip to channel 1 when the first statement of the pro- 
gram is read. 

The format of the header control record is as 
follows. | 


Cad | 
Column Contents Notes 


1 * Asterisk 
2 * Asterisk 
3-72 | Any string of 
characters 
73-80 Not used 





*ARITHMETIC TRACE 


This control record causes the Compiler to generate 
linkage to the trace subprograms, which are executed 
whenever a value is assigned to a variable on the left of 
an equal sign. If console entry switch 15 is on during 
execution and program logic (see Optional Tracing) does 
not prevent tracing, the value of the assigned variable is 
printed as it is calculated. 

If tracing is requested, an IOCS control record must 
also be present to indicate that either the typewriter 
(that is, the Console Printer), 1132 Printer, or 1403 ° 
Printer is needed. If more than one print device is 
specified in the IOCS control record, the fastest device 
is used for tracing. 

The traced value for a variable to the left of an equal 
sign of an arithmetic statement is printed with one 
leading asterisk. 

The format of the ARITHMETIC TRACE control rec- 
ord is as follows. 


Card 
Column Contents Notes 
1 


* Asterisk 

ARITHMETIC 
TRACE 

Not used 













2-72 
73-80 





*TRANSFER TRACE 


This control record causes the Compiler to generate 
linkage to the trace subprograms, which are executed 
whenever an IF statement or computed GO TO statement 
is encountered. If console entry switch 15 is on during 
execution and program logic (see Optional Tracing) does 
not prevent tracing, the value of the IF expression or 
the value of the computed GO TO index is printed. 

If tracing is requested, an IOCS control record must 
also be present to indicate that either the typewriter 
(that is, the Console Printer), 1132 Printer, or 1403 
Printer is needed. If more than one print device is 
specified in the IOCS control record, the fastest device 
is used for tracing. 

The traced value for the expression in an IF state- 
ment is printed with two leading asterisks. The traced 
value for the index of a computed GO TO statement is 
printed with three leading asterisks. 

The format of the TRANSFER TRACE control records 

Card 


is as follows. 


1 * Asterisk 
2-72 TRANSFER TRAC 
73-80 Not used 










Optional Tracing 


The user can elect to trace only selected parts of the 
program by placing statements in the source program 
logic flow to start and stop tracing. This is done by 
executing a CALL TSTOP to stop tracing or a CALL 
TSTRT to start tracing. Thus, tracing occurs only if: 


e Console entry switch 15 is on (can be turned off at 
any time) 

e The trace control records were compiled with the 
source program 

e A CALL TSTOP has not been executed, or a CALL 
TSTRT has been executed since the last CALL 
TSTOP. 


*ORIGIN ddddd or *ORIGIN/xxxx 


This control record causes the compiler to output 
absolute object code starting at the address specified, 
The address should consist of 1-5 decimal digits or 
1-4 hexadecimal digits preceded by a slash, Further- 
more the address must be in the range 0-32767 
(decimal), i.e, 0000-7F FF: (hexadecimal), 


The ORIGIN dddd control record is as follows: 


Card 
Column Contents Notes 


1 * Asterisk 
ORIGIN ddddd ddddd is the decimal address 
as specified above. 














Not Used 






The ORIGIN/xxxx control record is as follows: 


Card Contents Notes 
Column 








Asterisk 
xxxx is the hexadecimal address 






as specified above. 





1 Sd 
ORIGIN/xxxx 


Operating Notes 





A constant in a STOP or PAUSE statement is treated as 
a hexadecimal number. This hexadecimal number and 
its decimal equivalent appear in the list of constants. 
The hexadecimal number is also displayed in the accu- 
mulator when the system waits at $PRET during the 
execution of the PAUSE or STOP statement, 
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Variables and constants that require more than one 
word of storage have the address of the word nearest the 
zero address of the machine. In the case of arrays, the 
given address refers to the addressed word of the first 
element. In the case of a two- or three-word integer, 
the integer value is contained in the addressed word. 
The first variable listed might not be addressed at 0000 
because space may be required for generated temporary 
storage locations. 

The relative address for variables not in COMMON 
would be the actual address if the program started at 
storage location zero. The relative address for vari- 
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ables in COMMON would be the actual address if the ma- 
chine had 32K storage. Variables in COMMON reside in 
the high-order core location of the machine being used 
(e.g., first COMMON variable will be loaded to /1F FF 
on an 8K machine). 


Any of the three versions of the disk I/O subroutines 
may be used with a FORTRAN core load. However, 
under normal circumstances no advantage in speed may 
be gained, because the FORTRAN disk formatting sub- 
routine operates with one sector at a time. SOCALs 
may operate faster if DISKN is used. 


KEYBOARD INPUT OF DATA RECORDS 


Data records of up to 80 characters can be read 
from the keyboard by a FORTRAN READ state- 
ment. Data values must be right-justified in their 
respective fields. 


Keyboard Operation 


If it is desirable to key in less than 80 characters, 
the EOF key can be pressed to stop transmittal. 
Also, the ERASE FIELD or BACKSPACE key can be 
pressed to restart the record transmittal if an error 


is detected while entering data. If the keyboard 
appears to be locked up, press REST KB to restore 


the keyboard. The correct case shift must be se- 
lected before data is entered, 


Buffer Status After Keyboard Input 


Before entering each data record the buffer is filled 
with blanks. Therefore, when the EOF key is pressed 
prior to completing a full buffer load of 80 characters, 
the rest of the buffer remains blank. If more data is 
necessary to satisfy the list items, the remaining 
numeric fields (I, E, or F) are stored in core as 
zeros and remaining alphameric fields (A or H) are 
stored as blanks. Processing is continous and no 
errors result from the above condition. 


Note: For information about buffer status after pre- 
ssing the ERASE FIELD or BACKSPACE key, SUB- 
ROUTINE FUNCTIONS, Re-entry concerning TYPEZ. 


OBJECT PROGRAM PAPER 
TAPE DATA RECORD FORMAT 


Data records of up to 80 EBCDIC characters in 
PTTC/8 code can be read or written by the FOR- 
TRAN object programs, The delete and new-line 
codes are recognized. Delete codes and case shifts 
are not included in the count of characters. Ifa 
new-line code is enountered before the 80th char- 
acter is read, the record is terminated. If the 80th 
character is not a new-line code, the 81st character 
is read and assumed to be a new-line code. A new- 
line code is punched at the end of each output record, 


A-CONVERSION 


Spacing, tabulating, and shifting on the Console Printer 
can be controlled by outputting a unique value for the 
operation desired. These values must be assigned as 
integer constants and outputted through A-Conversion. 


The operations that can be performed and the unique 


values assigned to them are: 


OPERATION VALUE 
Backspace 5696 
Carrier Return 5440 
Line Feed 9536 
Shift to print black 5184 
Shift to print red 13632 
Space 16448 
Tabulate 1344 


As an example of Console Printer 
control, assume that a variable, X, is 
to be printed in the existing black ribbon 
shift and that another variable, Y, is to 
be shifted back to black. This can be ac- 
complished as follows: 


1=1344 
J=13632 
K=5184 
L=l 
WRITE (L,3)X, I, J, Y, K 
3 FORMAT (F12.6, 2Al, F12.6, Al) 


FORTRAN logical unit 1,as specified 
in the WRITE statement, is the Console 
Printer, The sequence of operations to be 
performed are: print the variable X, tab- 
ulate, shift to print red, print the variable 
Y, shift to print black. 

Each control variable counts as one 
character and must be included in the count 
of the maximum line length, 


FORTRAN I/O ERRORS 


If input/output errors are detected during execution, 
the program stops and execution should not be con- 
tinued, The error is indicated by a display in the 
accumulator, The error displays and meanings are 
listed in Appendix A, Table 12. 

When the output field is too small to contain 
the number, the field is filled with asterisks and 
execution is continued. 

The input/output routines used by FORTRAN 
(PAPTZ, CARDZ, PRNTZ, WRTYZ, TYPEZ, PNCHZ, 
READZ, PRNZ) wait on any I/O device error or device 
not ina ready condition. When the devices are ready, 
press PROGRAM START to execute the I/O operation. 

Error detection in functional and arithmetic sub- 
routines is possible by the use of source program state- 
ments. Refer to "FORTRAN Machine and Program 
Indicator Tests" in the manual, IBM 1130/1800 


Basic FORTRAN IV Language (Form C26~-3715). 


RPG 


The RPG specifications are described in the publica- 
tion IBM 1130 RPG Specifications, Form C21-5002; 
therefore, this section contains only a general desc-~ 
ription of the RPG program and its operation. The 
RPG control and End of File cards are described 
under the heading RPG Compiler Control. RPG error 
messages and error notes are described in Appendix 
A. 

The RPG Compiler cannot be operated independent- 
ly of the Monitor system; however, it can be deleted 
from the Monitor system if desired (see *DEFINE 
under DUP Control Records). 

An RPG Monitor control record (// RPG) is used 
to call the RPG Compiler into operation. The compi- 
ler reads the source program, including the RPG 
control card and End of File card, from the princi- 
pal input device. After compilation, the object pro- 
gram resides on disk Working Storage in Disk System 
Format. The object program can then be (1) called 
for execution with the XEQ Monitor control record, 
(2) stored in the User/Fixed Area with a STORE or 
STORECI operation (see DUP Control Records) or 
(3) punched as a binary deck with a DUMP operation 
(see DUP Control Records). 


RPG COMPILER CONTROL 


The RPG Compiler uses two special cards in its 
operation. The first, the RPG control card, acts as 
a header for the source deck and supplies operating 
parameters to the compiler. The second, the RPG 
End of File card, acts as a delimiter, and is requi- 
red at the end of any input to the RPG compiler or to 
an RPG data file. 


RPG Control Card 


The first card of an RPG source deck must be the 
RPG control card. The layout of this card is inclu- 
ded on the RPG Control Card and File Description 
Specifications, form number X24-3347, A detailed 
description of all entries on this card appears in the 
1130 RPG Specifications manual, 
For RPG Compiler operation, the entries in column 
6 and column 11 of the RPG control card are basic. 
e Column 6 of the RPG control card must contain an 
H. 
e Column 11 of the RPG control card indicates the 
type of run required. 
blank - Compilation with listing 
B ~ Compilation only 
D - Listing only 
All other entries on the RPG control card are op- 
tional, 


End of File Card 


The last card of an RPG source deck must be an End 
of File card. The End of File card is also required 
as the last card of a data file. 

The format of the End of File card is as follows. 


/* (slash in column 1; * in column 2) 


Columns 3-80 of the End of File card are not used. 


RPG PROGRAM OPERATION 


Figure 8.1 illustrates the stacked input required to 
compile an RPG source program, store the object 
program in the Users Area and execute the object 
program, If the // DUP and *STORE card were 
omitted from the Monitor input, the program would 
be executed from Working Storage; however, the 
program would not be available for future execution 
since it was not saved. 

Jf the program being compiled is not executed 
often, it may be advisable to store it in cards rather 
than on disk. Figure 8.2 shows the input required 
to compile an RPG program and punch an object deck. 
Figure 8,3 lists the input required to execute the 
object program from cards. 

Most RPG programs require data input during 
program execution. This data can be input on data 
cards at execution time or it can be stored on a pre- 
defined data file on disk at any time before execution. 
Figure 8.4 shows how a data file may be built for 
use with RPG. RPG files may be sequential or 
indexed- sequential (ISAM). See RPG File Organiza- 
tion in the section Programming Tips and Techniques 
for detailed information on RPG disk files. 

The compiler will print out addresses for various 
routines in the Key Addresses of Object Program 
Table. For example, the "Close Files" routine 
(which is approximately at the end of the mainline 
program) is included in this table. This routine 
may require from 2 to 16 additional words (hexa- 
decimal) depending on the type and number of files 
to be closed, The address of this routine can be 
helpful when dealing with programs which exceed the 
available core storage; by adding the number of ad- 
ditional words to the address of the "Close Files" 
routine, the size of the generated mainline program 
can be determined. 


On an ISAM load function, the compiler prints 
the following information: 

Filename 

Number of sectors required if no overflow is 
desired. 
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Figure 8,1 Stacked Input to Compiler, Store and Execute an RPG Program. 


~~ RPG data file (if file not already stored 


B 
// XEQ PROGN aii 
on disk) 


““~—— Execute the program. X or any other entry in column 

28 will bring in the special ILS routines required by RPG 
™~—— Get PROGN (program name) from Working Storage 

and store it in the User Area 
~—— Disk Utility Program call 













w~~——~ End of File signals end of data 
card input file 






~~—~ End of File card for source deck 


s+ RPG source deck (specification statements) 
~~~ RPG control card 


“—— Monitor control card to call the RPG Compiler 


““~—— Monitor control card to initicte the job 


Figure 8.2 Stacked Input to Compile an RPG Program and Punch Figure 8.3 Stacked Input to execute an RPG Object Program 
an Object Deck, from Cards, 


Bonk Cores a, 
x D 
Pe eX ~— Blank cards for object program J. of 


““—— Punch the named program (PROGN} into Data File 
cards . The program is in Working Storage 
——— Disk Utility Program call 
~~ End of File card for source deck a 
Object Deck 


-—— Store a program from cards to Working Storage 


t~——- End of File signals end of data 
card input file 











“*~—— RPG data file (if file not already stored 
on disk) 

"~—— Execute the program. X or any other entry 

in column 28 will bring in the special ILS 

routines required by RPG 














“™~—-— RPG source deck (specification statements) ““—— RPG object program 


“RPG control card 
““~—— Monitor control card to call the RPG Compiler —— Disk Utility Program call 


[~~ Monitor control card to initiate the job ““—— Monitor control card to initiate the job 


Figure 8,4 Reserving Space for and Storing an RPG File on Disk, 


j~—__ End of File signals end of data 
card input file 
Data File 


M~__ Data cards stored on disk on FILE! 






*STORE WS UA m__ Execute object program. X or any other 


entry in column 28 will bring in the special 
ILS routines required by RPG 
Store object program 


Disk Utility Program call 


™~—_ End of File card for source deck 


RPG source deck including control card. On File Descrip- 
tion Specification, define input file as cards, output file as 
disk. Object program to load data cards to FILE1. 


*STOREDATA WS 
Monitor control card to call the RPG Compiler 


UA FILE1 100 







~~—-rReserve 100 sectors on disk and label this area FILE] 


Disk Utility Program call 


~—__ Monitor control card to initiate the job 
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Number of sectors required if ten percent over- 
flow is desired. This information can be used to re- 
serve file space for ISAM records. 

The number of sectors needed for a sequential file 
can be calculated by the following formula 

Number of sectors required = Number of records/ 
/(640/record length) 


RPG OBJECT PROGRAM CONSIDERATIONS 


The RPG object program requires a special set of 


ILS subroutines. The user must punch a non-blank 
character in column 28 of the XEQ card and in column 
12 of the STORECI card to assure that they will be 
loaded, If the program is stored in core image, the 
ILS subroutines are stored with the program on disk. 


The storing of object programs in Disk Core Image 
format.in the User of Fixed Area on disk is not reco- 


mmended (see Disadvantages of Storing a Program in 
Disk Core Image Format (DCI ). 
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CORE LOAD BUILDER 


The Core Load Builder builds a specified mainline 
program into a core image program, The mainline 
program, with its required programs (LOCALs 

and SOCALs included), is converted from Disk 
System format to Disk Core Image format, During 
the conversion, the Core Load Builder also builds 
the Core Image Header record and the Transfer 
Vector, The resultant core image program is suit- 
able for immediate execution or for storing on the 
disk in Disk Image format for future execution. The 
Core Load Builder can build a core load that refer- 
ences up to approximately 375 different LIBF and 
CALL entry points, e.g., 80 LIBFs plus 295 CALLs 
(the maximum number of LIBFs allowable is 83 due 
to the size of the LIBF Transfer Vector), 

If the core load is built on an 1130 system with core 
size 4K, the maximum number of different LIBF and 
CALL entry points is approximately 110. 

The Core Load Builder is called by: 


* The Supervisor. After the Supervisor has de- 
tected the XEQ Monitor control record in the in- 
put stream and has read the Supervisor control 
records, if any, and written them in the Super- 
visor Control Record Area (SCRA) on disk, the 
Supervisor dummys up a CALL LINK to the pro- 
gram specified on the XEQ record unless the pro- 
gram resides in Working Storage, in which case 
the Supervisor calls the Core Load Builder di- 
rectly. The Core Load Builder then builds the 
core load and returns control to the Core Image 
Loader to fetch the core load and transfer control 
to it, 


*DUP. After DUP has detected the STORECI con- 
trol record, it reads the Supervisor control re- 
cords, if any, and writes them in the Supervisor 
Control Record Area (SCRA) on disk. Unless the 
program is already in Working Storage, DUP 
fetches the program, converts it to Disk System 
format, if necessary, and stores it in Working 
Storage. Next, the Core Load Builder is fetched 
to construct the core image program (see Core 
Load Construction). After the core image pro- 
gram has been built, the Core Load Builder re- 
turns control to DUP to store the core image 
program in the User or Fixed Area. 

* The Core Image Loader, When the Resident Mon- 

itor is entered at the LINK entry point, the Core 

Image Loader is called to transfer control to the 

next link. The Core Image Loader determines 

the format of the link from the LET/FLET entry 

and, if the program to be executed is in Disk 

System format, calls the Core Load Builder to 


construct the core image program (see Core 

Load Construction). After the core image pro- 
gram has been built, the Core Load Builder re- 
turns control to'the Core Image Loader to fetch the 


core load and transfer control to it, 
CORE LOAD CONSTRUCTION 


The following paragraphs describe the functions of 
the Core Load Builder during the construction of a 
core image program. These functions are not nec- 
essarily performed in the order in which they appear. 

Figure 9 shows a core image program being 
built. 

Figure 5 (see *STORECI under DUP Control 
Recordg shows a core image program stored on 
disk. 

Figure 11 (see Fetching a Link under Core Image 
Loadey shows a core load ready for execution. 


Processing the Contents of the SCRA 
The LOCAL, NOCAL, FILES, G2250, and EQUAT 


control records are read from the Supervisor Control 
Record Area (SCRA) on disk and analyzed, Tables 
are built from the information obtained from the re- 
spective control record types. These tables are used 
in later phases of the construction of the core image 
program, 


Conversion of the Mainline Program 


The mainline program is converted from Disk 
System format to Disk Core Image format. The 
mainline is always converted before any other part 
of the core load. 


Working Storage Files 
Defined in the 
Core Load 


a ye 
eee ee Seen eeareeers 
I 


Working Storage 


LOCALs SOCALs Not Used 


That Part of the Core 
Load Below 4096 


i _~uxx—a 
fo re oe 
FY 


Core Image Buffer 


Not Used Saved COMMON 


Resident 
Monitor Core Load Builder That Part of the Core Load Above 4095 


A», —»_.- ———_™1""* — 


SS Ss eee 


Location End of DISKZ Location End 
0000 4096 of 


\ Core 


Core Storage 


Figure 9, Distribution of a Core Image Program being Built 
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Incorporation of Subprograms 


All the subprograms called by the mailine program 
and by other subprograms are included in the core 
load, except for (1) the disk I/O subroutine, (2) any 
LOCAL subprograms specified, and (3) SOCALs 
(see System Overlays). 

If LOCALs have been specified or if SOCALs are 
employed by the Core Load Builder, the LOCAL/ 
SOCAL flipper (FLIPR) is included in the core load. 
The order of conversion is generally NOCALs, fol- 
lowed by the subprograms in the order they are 
called. The order of processing when either 
LOCALs or SOCALs are included is more compli- 
cated and will not be discussed here, 

By means of the function of the EQUAT control 
record (see SUPERVISOR CONTROL RECORDS) a 
subroutine, called in the core load that is being built, 
can be replaced by another subroutine. Furthermore, 
a symbolic name ina DSA statement can be replaced 
by another symbolic name. 


Provision for LOCALs and SOCALs 

If LOCALs have been specified, a LOCAL Area as 
large as the largest LOCAL is reserved in the core 
load, into which the LOCAL subprograms are read 
by the LOCAL/SOCAL flipper. In addition , the sub- 
programs specified on the LOCAL control records 
are written in Working Storage following any files 
defined in Working Storage, If the coreload is exe- 
cuted immediately, each LOCAL is read, as it is 
called, from Working Storage into the LOCAL Area 
by the LOCAL/SOCAL flipper. If the core load is 
stored in Disk Core Image format before it is exe- 
cuted, the LOCALs are stored following the core 
load. During execution, the LOCAL/SOCAL flipper 
fetches them from the User/Fixed Area. 

If SOCALs are employed by the Core Load Build- 
er, a SOCAL Area as large as the largest SOCAL 
(usually SOCAL 2) is reserved in the core load, into 
which the SOCALs are read by the LOCAL/SOCAL 
flipper. In addition, the subprograms comprising 
the SOCALs are written in Working Storage following 
any files defined in Working Storage and any LOCALs 
stored there, If the core load is executed immedi- 
ately, each SOCAL is read from Working Storage 
into the SOCAL Area by the LOCAL/SOCAL flipper 
as it is called. If the core load is stored in Disk 
Core Image format before it is executed, the 
SOCALs are stored following the core load and the 
LOCALs, if any. During execution, the LOCAL/ 
SOCAL flipper fetches the SOCALs from the User/ 
Fixed Area, 


Construction of the Core Image Header 


During the construction of the Core Image program, 
the Core Load Builder also constructs the Core 
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Image Header, which contains the information re- 
quired b the Core Image Loader to initialize the 
core load for execution. This header becomes a 
part of the core image program and resides in core 
along with the rest of the core load during execution. 
Since FORTRAN subroutines access this information 
during execution, the header is not to be considered 
a work area. 


Processing Defined Files 


The Core Load Builder uses the information in the 
FILES control record to equate files defined in the 
mainline program (by the FORTRAN DEFINE FILE 
statement or by the Assembler FILE statement). to 
Data Files on disk. The processing consists of com- 
paring the file number in a 7-word DEFINE FILE 
table entry with each of the file numbers from the 
FILES control records, which have been stored in 
the SCRA by the Supervisor or OUP. If a match 
occurs, the name of the disk area associated with 
the file number on the FILES control record is found 
in LET/FLET, and the sector address of that disk 
area (including the logical drive code) is placed in 
word 5 of the DEFINE FILE table entry. If none of 
the file numbers from the FILES control records 
match the number in the DEFINE FILE table entry 
or if no name is specified on the FILES control re- 
cord, the Core Load Builder assigns an area in 
Working Storage for the Data File. The sector ad- 
dress of the Data File, relative to the start of Work- 
ing Storage, is placed in word 5 of the DEFINE FILE 
table entry. This procedure is repeated for each 
7-word DEFINE FILE table entry in the mainline 
program, 


Use of the Core Image Buffer (CIB) and Working 


Storage 
The Core Load Builder places in the CIB any parts 


of the core load which, when loaded, are to reside 
below location 4096. Any parts of the core load that 
are to reside above location 4095 are placed directly 
into core storage. 

Enough Working Storage is reserved by the Core 
Load Builder to contain any Data Files assigned by 
the Core Load Builder to Working Storage, All the 
LOCAL subprograms and SOCALs, respectively, 
are stored in Working Storage following any files 
defined there. Figure 9 shows the distribution of a 
core image program between core storage, the CIB, 
and Working Storage. These diagrams depict a core 
image program just after it has been built but before 
it has been stored (STORECI). 


Assignment of the Core Load Origin 


The Core Load Builder origins core loads built from 
relocatable mainline programs at the next higher- 
addressed word above the end of the disk I/O sub- 
routine to be used by the core load plus 30, 


Disk I/O Core Load Origin 


Subroutine in Core Decimal Hexadecimal 
DISK Z 510 /01FE 
DISK1 690 /02B2 
DISKN 960 /03C0 


The origins for core loads built from absolute 
mainline programs are not controlled by the Core 
Load Builder, Therefore, the user must origin ab- 
solute mainline programs at 30 or more words above 
the end of the disk I/O subroutine to be used by the 
core load (these 30 words are required for the Core 
image Header). 


TRANSFER VECTOR 

The Transfer Vector is a table included in each 
core load that provides the linkage to the subpro- 
grams, It is composed of the LIBF TV, the Trans- 
fer Vector for subprograms referenced by LIBF 
statements, and the CALL TV, the Transfer Vector 
for subprograms referenced by CALL statements. 

Each CALL TV entry is a single word containing 
the absolute address of an entry point in a subpro- 
gram included in the core load that is referenced 
by a CALL statement. In the case of a subprogram 
referenced by a CALL statement but specified as a 
LOCAL, the CALL TV entry contains the address 
of the special LOCAL linkage instead of the subpro- 
gram entry point address, If SOCALs are required, 
the CALL TV entries for function subprograms con- 
tain the address of the special SOCAL linkage in- 
stead of the subprogram entry point address. 

Each LIBF TV entry consists of three words. 
Word 1 is the link work in which the return address 
is stored. Words 2 and 3 contain a branch to the 
subprogram entry point, In the case of a subpro- 
gram referenced by a LIBF statement but specified 
as a LOCAL, the LIBF TV entry for its entry point 
contains a branch to the special LOCAL linkage in- 
stead of to the subprogram entry point address. The 
Core load Builder inserts the address of word 1 of 
the T. V. entry (link word) into Entry point +2 of the 
associated LIBF subroutine, If SOCALs are required 
the LIBF TV entry for a SOCAL subprogram contains 
a branch to a special entry in the LIBF TV for the 
SOCAL of which the subprogram is a part. This 
special entry provides the linkage to the desired 
SOCAL subprogram, 


SYSTEM OVERLAYS 

SOCALs (system-overlays-to-be-loaded-on-call) 
are subprogram groups (by type and subtype) that 
are made into overlays by the Core Load Builder. 


They make it possible for many FORTRAN core 
loads that would otherwise not fit into core to be 
loaded and executed, 

If, in constructing a core image program from a 
FORTRAN mainline program, the Core Load Builder 
determines that the core load will not fit into core, 
SOCALs are created by the Core Load Builder for 
the core load. In addition, the LOCAL/SOCAL 
flipper, which fetches the SOCALs when they are 
required during execution, is included in the core 
load along with the area into which the SOCALSs are 
loaded (the SOCAL Area). 

The SOCALs are created by subprogram type and 
subtype (see the description of program type and 
subtype under Disk System Format in Appendix C). 


The following table describes the SOCALS. 
Overlay 


Subprogram Class (SOC AL Number) 


Type Subtype 


Arithmetic 3 2 1 
Function 4 8 1 
Non-disk FORTRAN 3 3 2 
I/O and "Z" conver- 
sion subroutines 


"Z" device subroutines 
Disk FORTRAN I/O 


There are two SOCAL options. The Core Load 
Builder first attempts to make the core load fit 
into core by using SOCALs 1 and 2 only (option 1), 
If the core load still will not fit into core, SOCALs 
1 and 2 and 3 are used (option 2). If the use of 
option 2 still does not make it possible for the core 
load to fit into core, an error message is printed 
(see Core Load Builder Error Messages, Appendix 
A). 

Option 1 reduces the core requirement of the 
core load by an amount equal to the size of the 
smaller of the two SOCALs used, minus approxi- 
mately 15 additional words required for the special 
SOCAL linkage. Option 2 reduces the core require- 
ment by an amount equal to the sum of the sizes 
of the two smallest SOCALs minus approximately 
20 additional words required for the special SOCAL 
linkage. SOCAL 2 is usually the largest SOCAL. 


w ul 


3 2 
1 3 


Each SOCAL does not contain all the available 
subprograms of the specified types and subtypes; 
only those subprograms of the specified types and 
subtypes required by the core load are contained 
in the SOCAL, 


If a subprogram that would otherwise be included 
in a SOCAL is specified as a LOCAL subprogram, 
that subprogram is made a LOCAL and is not in- 
cluded in the SOCAL in which it would ordinarily 
be found. 


SOCALs are never built for core loads in which 
the mainline program is written in Assembler or RPG 
language. 
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LOCAL/SOCAL FLIPPER (FLIPR) 


The LOCAL/SOCAL flipper is included in each 
core load in which LOCAL usbprograms have been 
specified and/or in which SOCALs have been em- 
ployed. If execution of the core load immediately 
follows the building of the core image program, this 
subroutine reads a LOCAL/SOCAL from Working 
Storage into the LOCAL/SOCAL rea as it is called 
during execution. If the core image program was 
stored in the User or Fixed Area in Disk Core 
Image format prior to execution, the flipper reads 
each LOCAL/SOCAL as it is called during execu- 
tion from the User or Fixed Area (where it was 
stored following the core load) into the LOCAL/ 
SOCAL Area, 

The flipper is entered via the special LOCAL/ 
SOCAL linkage. A check is made to determine if 
the required LOCAL/SOCAL is already in core. If 
it is not in core, the flipper reads the required 
LOCAL/SOCAL into the LOCAL/SOCAL Area, and 
transfers the LOCAL/SOCAL subprogram via the 
special linkage. 


CORE IMAGE LOADER 

The Core Image Loader serves both as a loader for 
core loads and as an interface for some parts of the 
Monitor system, 

On any entry to the Skeleton Supervisor, the 
Core Image Loader is fetched and control is trans- 
ferred to it, The Core Image Loader determines 
where the Skeleton Supervisor was entered, i.e., 
at $EXIT , $DUMP, or $LINK. 


FETCHING THE SUPERVISOR 

If an entry was made to the Skeleton Supervisor at 
the $EXIT entry point, the Core Image Loader first 
fetches the disk I/O subroutine used by the Monitor 
programs (DISKZ), if it is not already in core. 

It then fetches and transfers control to the Monitor 
Control Record Analyzer to read Monitor control 
records from the input stream. 

If an entry was made to the Skeleton Supervisor 
at the $DUMP entry point, the Core Image Loader 
first saves words 6-4095 on the CIB and then fetches 
and transfers control to the DUMP program to per- 
form the core dump according to the parameters 
specified. At the completion of the dump, the 
DUMP program either restores core from the CIB 
and transfers control back to the core load, or it 
terminates the execution with a CALL EXIT (see 
Terminal and Dynamic Dumps under Supervisor}, 


FETCHING A LINK 


If an entry was made to the Skeleton Supervisor 
at the $LINK entry point, the Core Image Loader 
first saves low COMMON (locations 1536-1855 if 
DISKN is in core, locations 1216-1535 if DISK1 is 
in core, or locations 896-1215 if DISKZ is in core). 
It then determines from COMMA the lowest-address- 
ed word of COMMON, if any, defined by the core 
load just executed. Any COMMON below location 
4096 is saved in the CIB by the Core Image Loader. 
Figure 10 illustrates the scheme used in saving 
COMMON between links. 


Core Image Buffer 


{ Core Load Built ; Saved COMMON )\ 
. —_—_—_—" 


—~—-__ > 
Sector 1] 2 3 4 5 6 7 9 10 11 12 13 14 15 16 
ae AG a ae ae 
fo/ EM GU gE 
4 4 7 ar ae ae ae A 
44 CY EU Pdi og 
46 fo ff , ie? Ae ae wae 
Oe oe Za. eft lO of af 
FQ CLA FA OT a OD 
ie yf aS be a aS Ce ee 
ae ee ae ae ae oe 
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Core 
Location 896 


Figure 10, Scheme for Saving COMMON between Links 
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1216 1536 1856 2176 2496 2816 3136 3456 3776 4096 


The LET/FLET entry for the link to be fetched 
is then located, and the Core Image Loader deter- 
mines from it whether the link is in Disk Core 
Image format or Disk System format. If the link 
is in Disk Core Image format, the Core Image 
Loader fetches the disk I/O subroutine required 
by the core load, if it is not already in core. It 
next restores low COMMON if it lies within the 
COMMON defined by the core load just executed. 
The core load is then fetched and control is trans- 
ferred to it, 

If the link is in Disk System format, the Core 
Image .Loader calls the Core Load Builder to con- 
struct a core image program from the mainline 
program. After the core image program has been 
built, the Core Load Builder returns control to the 
Core Image Loader, which then fetches the core 
load, as described above, and transfers control to 
it. 

Figure 11 shows the layout of a core load loaded 
into core, ready for execution 
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Figure 11, Layout of a Core Load Loaded for Execution 
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The information presented in this section should 
assist the user in achiever maximum utilization of 
the Monitor system, 


STACKED INPUT ARRANGEMENT 


Input to the Monitor System consists of control 
records, source programs, object programs, and 
data arranged logically by job. 


The following points must be considered when 
arranging the input for any job. 


1. Any number of comments records can be insert- 
ed in front of (but not immediately following) ASM, 
FOR, RPG, or XEQ monitor control records, and in 
front of an following JOB or DUP monitor control 
records. 


2. Any records other than monitor control records 
which remain after the execution of an ASM, FOR, 
RPG, or XEQ subjob are passed until the next monitor 
control record is read. After a DUP operation , 
records are passed until either a monitor control 
record or another DUP control record is read. 


3. If an error is detected in an assembly, FORT- 
RAN compilation, RPG compilation or during loading 
From Disk System format, the resulting object pro- 
gram or any programs that follow within the job can- 
not be executed. Also, if an error is detected in an 
| assembly, FORTRAN sompilation, RPG compilation, 
or during a loading from Disk System format during 
a STORECI function, all DUP functions are bypassed 
| until the next valid ASM, FOR, RPG, or JOB record 
is read, 


|4. If the FORTRAN compiler, RPG compiler, or 

the assembler encounters a monitor control record, 
control will be transferred to the Supervisor, i.e., 

the monitor control record will be trapped. The Su- 
pervisor will correctly analyze the record after the 
compilation or assembly has been abandoned. DUP 
will not trap a monitor control record during a DUP 


operation (refer to DUP Control Records). 


PROGRAMMING TIPS AND TECHNIQUES 


The stacked input arrangement shown in Figure 
11.1 will assemble/compile, store, and execute 
both Programs A and C, providing there are no 
source program errors, and there is sufficient 
room in the Working Storage Area (refer to Work- 
ing Storage Area). A source program error 
causes the DUP STORE operation (refer to DUP 
Control Records) to be bypassed for that program, 


and all following XEQ requests preceding the next 
JOB record are disregarded. Thus, if the success- 
ful execution of one program depends upon the suc- 
cessful completion of the previous program, both 
programs should be considered as one job and the 
XE9Q control records should not be separated by 

a JOB record. 


Job B calls in the Disk Utility Program, and 
stores object program B on disk. 


USING THE DISK I/O SUBROUTINES 


All core loads, whether they use disk I/ or not 
require one of the three disk I) subroutines. As 
a minimum, this disk subroutine is used to read the 
core load into core and execute CALL EXIT, CALL 
LINK, CALL DUMP, andfr CALL PDUMP. Gen- 
| erally, DISKZ is used by FORTRAN and RPG core 
loads and DISK1 or DISKN by Assembler- Language 
core loads. DISKN provides faster operation than 
DISK1 for operations involving more than 320 words, 
as well as the simultaneous operation of disk drives. 
DISKZ is intended for use only in an error-free envi- 
ronment , because it does no preoperative parameter 


checking, whereas DISK1 and DISKN do. DISKZ 
also has a special calling sequence; DISK1 and 
DISKN have the LIBF calling sequence. Bear in 


mind that all three disk subroutines are assembled 
as mainlines and are thus not the same as programs 
stored in the System Library , even though DISK1 
and DISKN (but not DISKZ) may be referenced with 
the LIBF statement. They are described with li- 
brary subroutines because they are similar in some 
respects to library subroutines. Actually, they are 
neither incorporated into the core load like library 
subroutines nor are they stored in the System Li- 
brary. A switch is set in COMMA to indicate 
which version of disk I/O is requested on the XEQ 
record. The setting of this switch is not altered 
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until 1) a Monitor control record is read or 2) a 
link that is stored in DCI is called. In the first 
case the switch is set to indicate DISKZ, unless 
the record was XE9, in which case the switch is 
set to indicate whatever version is requested. In 
the second case the switch is set to indicate the 
version of disk I/O required by the link. In short, 
each DSF link except the first in an execution must 
utilize the same version of disk I/O as the preced- 
ing link. The first link must, of course, utilize 
the disk I/O specified on the XEQ record. 

In order to save core in Monitor programs, all 
of which utilize DISKZ, DISKZ has been pared to a 
minimum, The following is a list of functions that 
are not available in DISKZ but are available in 
DISK1 and/or DISKN, 


e No validity checking of the word count and sec- 
tor address 


e No file protection 

e No LIBF type calling sequence 

e No validity checking of the function indicator 
e No write without readback check option 

e No write immediate function 

e Word count may not be on an odd boundary 

@® No simultaneous disk operations 


e Boes not'make"' the sector gap when reading or 


writing more than 320 words 
iA 


USING LINKS TO AVOID OVERPRINTING 


To prevent overprinting in a link to another program, 
at least one space should be given prior to the link- 
ing. This is due to the fact that the Core Load 
Builder assumes that a space before printing is not 
necessary, since all monitor programs have a space 
after print, 
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THE USE OF SOCALs 


Restrictions on Subroutines in SOCALs 





A rule of prime importance regarding subroutines 
in the SOCAL scheme is that none Must cut across 
SOCALs. That is, a given subroutine that is in one 
SOCAL may not call a subroutine that is in another 
SOCAL or cause another SOCAL to be brought into 
core before the execution of the given subroutine is 
completed, This is due to the fact that the IBM- 
supplied 1130 subroutines that go into the SOCAL 
scheme are not re-enterable. It should also be 
noted that disk I/O is used every time a SOCAL is 
brought into core. This means that disk I/O will 
sometimes be entered without the user's direct 
knowledge. 


When the 1627 Plotter is used in a program, the 
following subroutines must not be in a SOCAL for 
that program: EADD, FADD, FMPY, EMPY, 
XMD, XMDS and FARC, They must instead be 
in-core subroutines. This can be achieved by: 


be 


DUMP the programs to cards 
DELETE the programs 
3. STORE the programs with sub type zero 


y 


Decreasing Program Execution Time 


When writing or modifying a program that is known 
to require SOCALs, planning is required to minimize 
the flipping of the various SOCALs in and out of core 
during execution, Ideally the program should be 
written in sections, each of which employs a single 
SOCAL, e.g., input, computation, and output. 

Even input and output should be carefully planned 

so as to separate disk and non-disk operations 
whenever possible, 







Source Program C 


FORTRAN Control Records 


Object Program B 


Source Program A 


Assembler Control Records 


Cold Start Card 


(see Cold Start 
Operating Procedure) 


@ Figure 11,1 Example of Stacked Input (Three Jobs) 
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LOCAL CALLS A LOCAL 


For the Assembler language programmer, it is 
possible to execute DSF core loads in which a 
LOCAL calls another LOCAL. This may be effect- 
ed by punching column 26 of the XEQ record; this 
will cause all DSF core loads for that execution to 
allow LOCALs to call LOCALs. The user must 
make provision in all CALL LOCALs (Type 4 or 6 
subroutines) in a given LOCAL-Calls -LOCAL 
chain to pass along the link word, which implies 
that all such subroutines must be written in Assem- 
bler language. This is necessary in order to return 
from the last LOCAL in the chain to the place from 
which the first LOCAL was called. There is no 
way to pass along the link word ina FORTRAN- 
written CALL subroutine, thus making this re- 
striction necessary. 


DISADVANTAGES OF STORING A PROGRAM IN 
DISK CORE IMAGE FORMAT (DCI) 


Before deciding to convert a program to DCI, one 
should weigh the advantages gained in loading time 
against some disadvantages, one of the most im- 
portant of which involves maintenance. Suppose, 
for example, that a DCI program contained a sub- 
routine from the IBM-supplied System Library 

that contained an error that was fixed after the core 
load was built and stored. The correction would 

be sent out, but it would be applied only to the sub- 
routine itself; it would not be applied to the DCI 
programs that have had the subroutine already 

built into themselves. Such programs, to acquire 
the fix, would have to be deleted and rebuilt 
(STORECD after the maintenance mod was installed. 
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Another important consideration concerns core 
loads that contain references to non-Working 
Storage disk files. Of course, the system disallows 
STORECI if the core load references a file in the 
User Area, because the location (sector address) 
of that file may change (because of deleted pro - 
grams). Any DCI core loads that reference sucha 
file will do so by the old sector address, and the 
results are then unpredictable, 


To a lesser extent the same danger exists if the 
DCI program references a file in the Fixed Area, 
even though that operation is allowed. The file 
may be deleted after the DCI program is stored, 
for example, and a new file or program stored in 
its place. This is complicated by the fact that not 
only are the sector addresses built into the DCI 
program, but also the logical drive codes, which 
implies that every time such a program is exe- 
cuted the user must be certain that all disk cart- 
ridges required are mounted on the same logical 
drives as when the program was originally stored 
in DCI, 


TIPS ON MONITOR CONTROL 


Temporary JOB Mode 


In many cases DUP delete functions must be per- 
formed to clear the User Area of old programs 
before newly assembled or compiled programs 
may be stored. The necessity for such deletions 
is avoided by using the temporary mode when run- 
ning jobs that contain programs that are likely to 
be replaced at a later time. In the Temporary 
mode all programs stored to the User Area are 
automatically deleted when the next JOB record is 
processed, This assures the user that his new 
program is the one stored in the User Area and is 
particularly useful while debugging. 


EJECT Monitor Control Record 


The EJECT record is used to control the beginning 
of a new page on the principal print device during a 
job. For example, messages to the operator of the 
Monitor Comments control record type may be 
placed in a more readable position if followed by 
an EJECT record, 


23.4 5 6 7 8B 9 1011 12 13 1415 1617 1819 2021 2223 24 25 26 27 28 29 30 31 32 33 34 35 3637 3t 


° 
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SYSUP 


Changing cartridges in the middle of a job is permis- 
sible; however, great care must be exercised. A 
system update operation_must always be performed. 
This function is provided by the System Library sub- 
routine SYSUP. The subroutine should be called 
immediately following the loading of the new cart- 
ridge or cartridges as follows: 
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Pew aoe eee Ae 210 ° Als 12 
Ree 8 -e E ALR P10 Q f 

es Oye ALR D0 Q Arle, sd 
Peper eee ah roan Wo ato Sy or eee oe re Oe re 


The IDs of cartridges to be used must be specified, 
even those that were previously specified except the 
master (logical 0), which if unspecified will be the 
previous master. Continuation of the job must be de- 
layed until all the newly loaded cartridges are ready. 
Rules governing the specification of cartridges are 


the same as those for the JOB Monitor control record. 


record. 


For a tip on using SYSUP see REELING section 
Programming, Tips and Techniques. 


The FORTRAN calling sequence for SYSUP is 
described in the section of this manual entitled 


System Library Utility Subroutines. 


MAXIMUM PERFORMANCE OF HIGH SPEED 
DEVICES 


Double Buffering 


The 2501 Card Reader model A2, rated at 1000 cards 
per minute presents a special problem to the program - 
mer who desires maximum performance from his 
card I/O operations. If any conversion of the card 
data is required, the reading speed is likely to drop 
to 500 cards per minute, unless double-buffering is 
used, 

The principle involved, is to read into one buffer 
while converting and processing the data from another 
buffer. This scheme does cost core for the extra 
buffer and additional programming involved, but in 
most cases it should allow the card throughput for 
the 2501 to remain at 1000 cards per minute. The 
coding illustrated below shows the double-buffering 
technique used for reading cards from the 2501, and 
converting them to EBCDIC. 
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1403 Conversion Subroutines 


. Two subroutines are provided with the Monitor system 
that may be used by Assembler object programs to con- 
vert EBCDIC to 1403 Printer Code. These subroutines 
are EBPRT and ZIPCO. 

Using the execution times listed in the Subroutine 
Library manual, the average time EBPRT requires to 
convert a 120 character line is 156 ms. This compares 
with an estimate of 72 ms per line for ZIPCO. 

Considering that the available times on the 1403 
Printer are 


Model 6 (340 LPM): 176 ms/line 
Model 7 (600 LPM): 100 ms/line 


it would be difficult or impossible to run the printer at 
rated speed, depending on the model, using EBPRT. If 
overlapped I/O were attempted, it would be impossible 
to run either model at rated speed. 

The assembly language programmer is therefore ad- 
vised to use ZIPCO for all EBCDIC to 1403 Printer code 
conversions. 


TIPS FOR ASSEMBLER LANGUAGE USERS 


Grouping of Mnemonics 


Assembler language programs can often be organized in 
such a manner as to improve the assembly time. The 


Assembler Program is divided into overlay phases, each 


phase processing a certain group of mnemonics. By 


grouping mnemonics of a common type in the source pro- 


gram, fewer disk reads of overlay phases will be re- 
quired by the Assembler. The following is a list of the 
mnemonics as they are grouped within the Assembler 
program: 


A. ABS, FILE, ENT, ISS, ILS, SPR, EPR 

B. DCs and imperative instructions (A, LD, EOR, 
BSC, etc.) 

DEC and XFLC 

DMES 

HDNG, ORG, EQU, BSS, BES, LIST, SPACE, 
EJCT, DUMP, PDMP 

F. LIBF, CALL, DSA, LINK, EXIT, EBC, DN 


Ao 


Each time a mnemonic is encountered during the 
assembly process, the overlay phase required to proc- 
ess it will be read into core, unless it is already resid- 
ing in core. 
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Intermediate I/O 


As the source records are read and processed by the 
Assembler in Pass 1, each statement is packed and 
saved on the disk in Working Storage. The part of the 
record that is saved is from column 21 to the last non- 
blank column. If no listing is specified, comments 
records are not saved on the disk. 

Each record saved on the disk is preceded by a pre- 
fix word that contains the length of the associated rec- 
ord plus one. Up to sixteen 38-column records are 
saved on one sector. 


WRITING ISS AND ILS 


Interrupt Service Subroutines 


The following rules must be adhered to when writing an 
ISS: 


e Precede the ISS statement with an LIBR statement 
if the subroutine is to be called by LIBF rather than 
CALL. 


e Precede the subroutine with an EPR (extended) or an 
SPR (standard) statement if precision specification 
is necessary. 


e Precede the subroutine with one ISS statement defin- 
ing the entry point (one only), the ISS number, and 
the ILS subroutines required. The device interrupt 
level assignments, and the ISS numbers used in the 
IBM-provided ISS and ILS routines, are shown in 
Table 4. See the 1130 Assembler Language Manual 
(Form C26~-5927), for a description of the ISS state- 
ment. Note that the ISS numbers assigned by the 
IBM-supplied subroutine range from 1-11. ISS 
numbers 12-20 are assignable by the user. (They 
should be assigned from 20 downwards. ) 


@ When assembling the ISS, an *LEVEL n control 
card must be included for each interrupt level 
associated with the device. 


e The entry points of an ISS are defined by the related 


ILS. This must be taken into consideration when a 
user-written ISS is used with an IBM supplied ILS. 
The ILS executes a Branch and Store I instruction 
to the ISS at the ISS entry point plus n (see Table 4). 
The ISS must return to the ILS via a BSC instruction 
(not a BOSC). 


Table 4, 


iSs 
Number 
1 


ISS/ILS Correspondence 


Device Interrupt 
Device Level Assignments 
0,4 


1442 Card Reader Punch 









Input Keyboard/Console 
Printer 









1134/1055 Paper Tape 
Reader/Punch 








2501 Card Reader 
Disk Storage 
1132 Printer 







1627 Plotter 





Synchronous Communi- 
cations Adapter 








1403 Printer 






1231 Optical 
Mark Page Reader 






2250 Graphic Display 





Interrupt Level Subroutines 


An ILS is included in a core load only if requested by an 
ISS that is a part of the same core load. ILS02 and 
ILS04 are a part of the Resident Monitor unless they are 
deleted from the System Library and replaced with user- 
written subroutines. The following rules must be ad- 
hered to when writing an ILS. 


e Precede the subroutine with an ILS statement to 
identify the interrupt level involved. 


e@ Precede all instructions by an ISS branch table 
and include one word per ILSW bit used. If the 
ILSW is not to be scanned, (i.e., a single ISS 
handles all interrupts on the level), then a one 
word table is sufficient. The minimum table 
size is one word. Table words must be non-zero. 
A zero must follow the branch table. 


Word Corresponding To 


ILSW Bit 15 
ILSW Bit 14 


ISS Branch Table 


ILSW Bit 0 


The ISS branch table identifies both the ISS subroutine 


and the point within the ISS which should be entered for 
each bit used in the ILSW. The actual linkage is gener- 
ated by the Core Load Builder. Basic to this generation 


is the ISS number implied by bits 8-15 of the branch 
table word and specified in the ISS statement. This 
number identifies a core location in which the Core Load 
Builder has stored the address of the called entry point 
in the ISS. This entry point address is incremented by 
the value in bits 0-7 of the branch table word, produc- 
ing the interrupt entry point address. The Core Load 
Builder replaces the ISS branch table word with the 
interrupt entry point address. 

During execution,each address in the branch table 
may be used with an indirect branch and store I (BSI) 
instruction to reach the ISS corresponding to that ILSW 
bit position. The ILSW bit that is ON can be determined 
by the execution of a SLCA instruction. At the comple- 
tion of this instruction, the index register specified 
contains a relative value equivalent to the bit position 
in the ISS branch table. An indirect, indexed BSI may 
then be used to reach the appropriate ILS. 

Before processing by the Core Load Builder, each 
word in the ISS branch table has the following format: 


Bits 0-7 -- Increment added to the entry point named in 
the ISS statement to obtain the interrupt entry point in 
the ISS for this ILSW bit. (In IBM-written ISS subrou- 
tines, this increment is +4 for the primary interrupt 
level and +7 for the second interrupt level.) 


Bits 8-15 -- @ISTV+ the ISS number for the ISS subrou- 
tine for this ILSW bit. 


e ‘the ISS number for any entries in the IBT that 
represent unused bits in the ILSW must have 
the value © ISTV. 


e The ILS entry point must immediately follow the ISS 
branch address table and must be loaded as a zero. 
The Core Load Builder assumes that the first zero 
word in the program is the end of the branch table 
and is also the entry point of the ILS. (The table 
must contain at least one entry.) The interrupt 
results in a BSI to the ILS entry point. 


eTo clear the level, a user-written ILS, used with 
an IBM-supplied ISS, should exit via the return 
iinkage with a BOSC instruction. 


eUser-written ILS must replace the equivalent IBM- 
supplied ILS. The user written ILS must be stored 
as ILSOx, where x= 0, 1, 2, 3, 4, or 5. 


e The IBM-supplied ILS02 and ILS04 subroutines 


are stored as subtype 1. User-written replacements 
must be stored as subtype zero. 


® ‘he branch table for ILS04 may have no more than 


J entries. 


e The branch table for the IBM-supplied version of 
[LS04 may have no more than 9 entries. A user- 
written version may support all 16 possible 
entries, 
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READING A CORE MAP AND A FILE MAP 


The core maps described below are taken from the 
sample programs supplied with the Monitor system. 
(The sample program listings and operating instructions 
are printed in Appendix J.) 

The core map for the Assembler-language sample 
program indicates that there were /7904 words of core 
storage not occupied by the core load (R41 is an infor- 
mational message, not an error message). There was 
only one CALL (FSQR), but there were several LIBFs, 
e.g., FARC. The ILS02 and ILS04 subroutines are 
required; however, their addresses indicate that they 
are a part of the Resident Monitor and not in the core 
load proper. The entry point to the mainline program 
is /O1FE. 

The principal difference in the core map printed for 
the FORTRAN-language sample program is that it in- 
cludes a file map. The file defined as file number 103 
has been equated to a data file named FILEA, which be- 
gins at sector /01AE, is one sector in length, and is 
stored on a cartridge labeled 000F. 

If file 103 had required more than the two sectors 
available in FILEA, the record count would have been 
reduced to make the file fit in FILEA, and the file 
map entry would have been 


103 01AE 0002 000F FILEA TRUNCATED 


The files defined as 101 and 102 are files in Working 
Storage because they do not appear in the * FILES rec- 
ord. This can be determined by looking at the right- 
most entry in the file map. For files defined in the 
User/Fixed Area, for example, FILEA, this entry is 
the name of the file; otherwise, it is the address of 
Working Storage. 

The second entry for a User/Fixed Area file is the 
absolute sector address of the first sector of the file. 
For files in Working Storage, this address is relative 
to the first sector of Working Storage. Thus, the abso- 
lute sector address of the first sector of file 101 is 
/0000 + /01B0; for file 102 it is /0001 + /01B0. 

Note that the 4K example requires both LOCALs 
and SOCALs. The LOCALSs were, of course, requested 
by the user, and the core map entries for the LOCAL 
subroutines (FLOAT, FARC, and IFIX) have been flag- 
ged, The presence of SOCALs, which were selected and 
constructed by the Core Load Builder, are also indicated 
by flags on the core map entries for the subroutines in- 
cluded in the various SOCALs. The number following the 
word "SOCAL" indicates in which of the SOCALS a par- 
ticular subroutine is to be found. In this case SOCAL 
Option 2 was employed. This can be deduced from the 
fact that there are three SOCALs. Option 1 consists of 
only two. 

Several other facts about the 4K core load can be ex~ 
tracted from the core map. For one thing, the core 
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load exceeds the capacity of core storage (before 
SOCALizing) by /03AB words (message R40). Further- 
more messages R43, R44, and R45 indicate that 
SOCALs 1, 2, and 3 require /0124, /06AC, and /02A2 
words of core, respectively. This information indicates 
that, for example, since SOCAL 2 is much larger than 
SOCAL 1, more arithmetic and function subprograms 
may be called at little extra cost in core. (It would be 
necessary to reduce the dimension of the variable B 

to realize this.) Message R41 says that, after 
SOCALizing, there are only /0004 words of core that 
are not used by this core load. 


The RPG core map shows that the x version of the 
ILS subroutines have been used. The x versions are 
required by RPG and are called by punching any cha- 
racter in column 28 of the // XEQ card. 


Assembler Core Map 


4/7 XEQ t 
R 41 7904 (HEX) WDS UNUSED BY CORE LOAD 
CALL TRANSFER VECTOR 


FSQR 0248 
LIBF TRANSFER VECTOR 
FARC 069E 
XMDS 0682 
HOLL 0632 
PRTY O5E2 
EBPA 0592 
FADD O4El 
FDOIV 0540 
FLD 048C 
FADDX 04E7 
FMPYX 04A2 
FSTO 0470 
FGETP 0456 
NORM 042C 
TYPEO 0312 
EBPRT O2AC 
IFIX 0280 
FLOAT 0230 
SYSTEM SUBROUTINES 
ILS04 00C4 
ILSO2 0083 


O1FE (HEX) 1S THE EXECUTION ADDR 


FORTRAN Sample 4K Core and File Map 


// XEQ L 2 
#LOCAL § FLOAT sFARC oIFIX 
#FILES(1O39FILEA) 
FILES ALLOCATION 
103 O1AE 0001 OOOF FILEA 
101 0000 0001 OOO0F 0180 
102 0002 0001 OOO0F 0180 
STORAGE ALLOCATION 
R 40 0O3AB (HEX! ADDITIONAL CORE REQUIRD 
R43 0124 (HEX) ARITH/FUNC SOCAL WD CNT 
R 44 O6AC (HEX) FI/O» 1/0 SOCAL WD CNT 
R 45 02A2 (HEX) DISK FI/O SOCAL WD CNT 
R 41 0004 (HEX) WOS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 
EBCTB OF5S3 SOCAL 
HOLTR OF17 SOCAL 
GETAD O€D4& SOCAL 
XMOS 0982 SOCAL 
HOLEZ OE9E SOCAL 
NORM 070¢C 
FADOX 095D SOCAL 
FSBRX 0934 SOCAL 
FMPYX 0900 SOCAL 
FDIV OBAE SOCAL 
FSTOX 0788 
FLOX OTAS 
SOCOM 0920 SOCAL 
SOFX O8E6 SOCAL 


~H we RRND 


Ww Ww 


SDWRT 0954 SOCAL 
SIOFX 099A SOCAL 
SUBSC O7BE 
S101 O99E SOCAL 
SCOMP 0982 SOCAL 
SWRT OBAB SOCAL 
SRED 0880 SOCAL 
FSTO 078C 
FLD OTA8 
PRNTZ ODEO SOCAL 
CAROZ 0036 SOCAL 
SFIO O9AD SOCAL 
SOFIO 0959 SOCAL 
IFIX 087¢ LOCAL 
FARC 087C LOCAL 
FLOAT O87C LOCAL 
SYSTEM SUBROUTINES 
TLS04 00C4 
1LS02 0083 
TLSO1 OFSA 
1LS60 OF75 
FLIPR 0816 
0400 (HEX) IS THE EXECUTION ADOR 


NMN TN yw 


ub PR PO ND 


FORTRAN Sample 8K Core and File Map 


// XEO L | 
FILES(103,FILEA) 
FILES ALLOCATION 
103 OIAE OOO! OOOF FILEA 
101 0000 OOO! OOOF O!BO 
102 0001 O00! OOOF O1B0 
STORAGE ALLOCATION 
R41 OC9C (HEX) WDS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 


EBCTB 12CD 
HOLTB 1291 
GETAD 124E 
NORM 1224 
XMDS 1208 
FARC 1156 
HOLEZ 11BO 
FLOAT I1A6 
IF IX 117A 
FADDX 1125 
FSBRX I1OFC 
FMPYX  10C8 
FDIV 1076 
FSTOX IOIE 
FLDX 103A 
SDCOM O7FE 
SDFX  07C4 
SDWRT 0832 
SIOFX OBIA 
SUBSC 1054 
S10! OBIE 
SCOMP OBO2 
SWRT  OA2B 
SRED  O0A30 
FSTO 1022 
FLD 103E 
PRNTZ OF 60 
CARDZ OEB6 
SFIO OB2D 
SDFIO 0837 
SYSTEM SUBROUTINES 
1LSO4 00C4 
I1LSO2 00B3 
ILSOI =$2D2 
ILSOO = 2ED 


O4DD (HEX) 1S THE EXECUTION ADDR 


// XEQ L R 


R 41 73FA (HEX) WDOS UNUSED BY CORE LOAD 
CALL TRANSFER VECTOR 


RGERR OB64 

EBPT3 099C 

HLEBC O7F2 
LIBF TRANSFER VECTOR 
RGMV2 OABO 

RGMVI OAIC 

PRNT3 0872 

ZIPCO 0752 

READO O6F2 
SYSTEM SUBROUTINES 
ILSX4 OBB3 

ILSX2 OBD5 

O20F (HEX) IS THE EXECUTION ADDR 


LOCATING FORTRAN ALLOCATION ADDRESSES 


The variable allocations listed below are taken from the 
FORTRAN sample program in Appendix J. 


VARIABLE ALLOCATIONS 


A(R )2#200DC-0016 X(R )s00F0=00DE BIR }20208-00F2 
V3(r )=020€- M(I )#020F L(I )20210 

L2(1 )s0214 NiCI 30225 N2(I )20216 

K{Il )mO21A IK(I )#0218 T1¢r 22021¢ 

D{R )#02GA V1¢I )=020¢ v2¢I )#0200 
Mi¢T )80211 M2(1 )#0212 L1(2 )#0213 

N(I )80217 I(t }#0218 J(T 389219 


The variable array A is to be found between core loca- 
tions /00DC + /001E + $ZEND and /0016 + /001E 
+ $ZEND, inclusive. That is, A, is at /00DC + /001E 
+ $ZEND, Ag at /00DB + /001E + $ZEND, etc. The 
/001E term is the length of the Core Image Header and 
$ZEND is the address of the first core location follow- 
ing DISKZ. 

The other allocation addresses, e.g., statement 
allocation, may be calculated in a similar manner. 


INITIALIZING $$$$$ DATA FILES FOR USE WITH 
FORTRAN UNFORMATTED I/O 


The user must define a Data File with the name $$$$$ 
prior to executing a FORTRAN mainline program or 
subroutine that uses unformatted I/O. This Data File 
must be located in the Fixed Area. One file may be 
defined in the Fixed Area of each cartridge on the sys- 
tem; however, only one $$$$$ file may be referenced 
in any one job. 

The following example shows a $$$$$ file being de- 
fined on a satellite cartridge. 


The satellite cartridge ID is 1004 


The system cartridge ID is 1001 
A file of 100 sectors is desired 
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After the file is defined, program ML1 which uses un- 
formatted I/O can be executed. Note that no *FILES 
card is required at execution time to define the $$$$$ 
file. 


12.3.4 5 6 7 8B 9 101112 13 1415 16 17 18 19 2021 22 23 24 25 26 27 28 29 30 31 32 33 34 35 3637 38 39 404 
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) \ yi ) ARGA werer A4. L004, 
STOREDATA . WS. FX. $$$$%. 1001001. . 1004 
JOB... 2008... L004 
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Sample program 3, containing the statements END 
FILE, BACKSPACE, and REWIND, is included in 
Appendix J. The program writes three logical 
records of different lengths to file $$$$$, Each 
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logical record begins at a sector boundary and ex- 
tends into additional sectors as required. Refer to 
unformatted disk I/O description in Table 3, 

After completion of each WRITE (of records A, 
B, and C), a pointer is "moved" to the beginning 
of the next logical record, In the case of the END 
FILE statement, the pointer is similarly positioned 
beyond the record generated by END FILE. The 
first BACKSPACE statement moves the pointer to 
the beginning of record C, which is subsequently 
read into area F, Following the REWIND statement, 
which sets the pointer to logical record A, a READ 
with no area specified is executed that has no effect 
except to advance the pointer to record B, Only 
the first half of B is read into E, since the record 
lengths are in the ratio 2: 1, 


USE OF DEFINED FILES 


When an *FILES Supervisor control record is used 
following a //XEQ Monitor control record, or a 

* STORECI control record, the Core Load Builder 
attempts to locate the file name by searching LET 
or FLET. If the name is found, the sector address 
of this Data File is inserted in the file table (creat- 
ed as a result of the FORTRAN DEFINE FILE state- 
ment or the Assembler FILE mnemonic) identified 
by the file number specified on the * FILES record. 
If the file name is not found in LET and FLET, the 
Core Load Builder causes this file to be a Working 
Storage file. A suggested way of initially allocat- 
ing a disk area for a Data File is to perform a 

* STOREDATA DUP operation from Working Stor- 
age to the User or Fixed Area. The number of sec- 
tors stored should be determined on the basis of 
the number of records the file is to contain, and the 
size of each record. Note that records do not con- 
tinue across sector boundaries. Once the number 
of sectors required has been determined, this num- 
ber of sectors should be specified on the * STORE 
DATA contrel record, provided the User Area or 
Fixed Area is large enough to contain this file. 


DUPLICATE PROGRAM AND DATA FILE NAMES 


On a multi-drive system, it is possible to have more 
than one program or data file with the same name. 
This can cause problems when attempting to exe~ 
cute or delete the named program. 

Example: 


2 4 6 8 W 12 4 W 8 20 22 244 06 B® WD 32 3% 3% BW 40 42 


e 
f 
’ 


. 22 ok 
STOR TH! 
e 
e 
e 
TOR OG! 2: 
e 
eo 
e 
e 
Q 0G, | 
e 
MDE LE TE PRO 


This sequence of instructions will cause PROGI1 on 
the cartridge labeled 1111 to be executed when 
PROGI1 on 2222 may have been desired. A similar 
problem can occur on a DELETE operation, The 
above DELETE instruction would delete the program 
on 1111, not the one on 2222, 
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The answer to this problem is to avoid having two 
programs or data files with the same name. If an 
unknown cartridge is on line and it is not needed 
for the job, disable it. 


NAME CONFLICTS 


In STORE and DELETE operations, care should be 
taken to avoid name conflict with IBM-supplied pro- 
grams. If the program to be stored or deleted 
carries the same name as an IBM program, the 
system may execute the operation on the wrong pro- 
gram. 


RESTORING DESTROYED CARTRIDGES 


Cartridges that contain data and/or programs in 
the User Area or Fixed Area, and which may be 
difficult to replace, can sometimes be restored to 
use after being rendered unusable. If only sector 
addresses are affected, DCIP may be used to ini- 
tialize sector addresses only. (See "Stand-Alone 
Utility Programs"), 

If some part of the Monitor System has been des- 
troyed (including LET, FLET, User Area and 
Fixed Area), a reload function may be performed 
with the System Loader. In this case, the entire 
Monitor System deck, except the System Library, 
should be processed by the System Loader. 

In cases in which individual words on the disk have 
been destroyed, the disk patch feature of DCIP may 
prove very useful in restoring these words. 


REELING 


"Reeling", that is, continuing a long data file from 
one cartridge to other cartridges can be done with 
the aid of SYSUP and linking. Such an operation 
might be performed as follows. Suppose a single- 
drive user intends to process sequentially a long 
data file that will not fit on one cartridge. The 
first part of the file can be defined on one cartridge 
and the second part on another. The programs that 
access this file can be written as two links, the 
first of which processes the first part of the file, 
the second the rest of the file. Assuming that the 
program is written in FORTRAN, the termination 
of the first link would consist of a PAUSE (to allow 
for mounting the second cartridge in place of the 
first), followed by CALL SYSUP, followed by CALL 
LINK to the second link, which then processes the 
second part of the data file. When SYSUP is called, 
DCOM and COMMA are changed to reflect certain 
IBM System Area allocations of the second cart- 
ridge. 


The only constraint is that the second cartridge 
must be a system cartridge. If the FORTRAN 
Compiler is not present on the second cartridge, 
the second link to be executed can be compiled on 
the first cartridge, dumped to cards, and stored as 
described on the second cartridge. The sample 
program 5 in Appendix J illustrates how this could 
be accomplished. In the sample, both cartridges 
are system cartridges and both contain a Fixed Area 
but only cartridge ll11 includes the FORTRAN Com- 
piler. The second link was compiled, dumped to 
cards, and stored on cartridge 2222, which con - 
tains the second part of the file. A terminating 
pattern (decimal 999) is written at the end of the 
file on each cartridge and could be used as an end- 
of-file indicator for subsequent operations on these 
files. 


One-word integers were specified in LINK1 so 
that the next higher core location after L (2) would 
be zero as a result of the L (1) equal 0 statement. 
Since the array is stored in reverse order, SYSUP 
will find cartridge ID 2222 (hex) followed by 0. 
Refer to SYSUP, in "Monitor System Library" . 
Another method, suitable to any FORTRAN pre- 
cision, would utilize a call to an Assembly language 
subroutine with undefined precision that subsequent- 


ly calls SYSUP and includes the SYSUP list or array. 


The sample program 6 in Appendix J illustrates 
sequential file processing with two cartridges and 
two disk drives. The multiple-drive user may avoid 
the SYSUP/CALL LINK by naming both cartridges 
on the // JOB record, Just as in the previous des- 
cription, his program must be written so as to 
process the two portions of the file separately, 
even though they may both have the same name, In 
such a case, the *FILES record could name two 
files, both with the same name but with different 
cartridge IDs. 

All files referenced in a given core load must be 
identified in LET/FLET by the Core Load Builder 
when the core load is built, This applies alike to 
DSA and *FILES references. If desired, the 
program may be divided into links, each with its 
own associated file. If sufficient drives are not 
simultaneously available for all cartridges involved 
to be specified, a reeling method must be used 
whereby any cartridge with a data file named in an 
*FILES record must be on-line at the time the 
*FILES record is processed as a result of either a 
// XEQ or *STORECI record. Similarly, a DCI 
program that accesses files ina Fixed Area must 
be executed in the same disk cartridge environment 
in-which it was built. For example, ifthe sample 


mat with cartridge 111 on logical drive 0 and cart- 
ridge 2222 on logical drive 1, it must be executed 
with those same cartridges on those same logical 
drives. These requirements are due to the fact 
that the Core Load Builder must assign absolute 
sector addresses, including logical drive codes, 
for UA/FXA files as the core load is built, and of 
course it must find these addresses in LET/FLET: 


MAINLINE PROGRAMS THAT USE ALL OF CORE 


Before writing a program that occupies all or nearly 
all of core, the user should weigh the advantage 
gained against the possible later rewriting required 
if IBM-supplied subroutines used by the core load 
are expanded due to modification, 


TIPS FOR FORTRAN LANGUAGE USERS 


It is strongly recommended that the use of the 1130 
device code be avoided in READ and WRITE state- 
ments, the use of integer variables in such cases 
allows for easier modification. 


CONVERTING FROM VERSION 1 TO VERSION 2 


e Data files and DSF programs must be dumped 
from the Version 1 cartridge to cards or paper 
tape and stored on the Version 2 cartridge under 
DUP control, 


e The five-character alphameric disk cartridge 
labels used in Version 1 must be changed to 
four-character hexadecimal labels. 


e® DCI programs ona Version 1 cartridge cannot 


be dumped and stored on a DM2 cartridge. 
They must be stored in DSF on the DM2 cart- 
ridge and then converted to DCI under DUP 
control, which implies that the original DSF 
mainlines must be available. 


e Since the FORTRAN I/O device numbers are 


fixed, some reprogramming is necessary when- 
ever programs that use a given I/O device are 
required to employ a different device. For 
example, if a program that uses an 1132 Printer 
is to use a 1403 Printer, the device numbers must 
be changed in all READ and WRITE statements 
that reference the printer. 


program 5 in Appendix J were stored in DCI for- For another solution see tips on EQUAT record 


over page. 
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TIPS FOR USE OF EQUAT RECORD 


The *EQUAT function is used to change LIBF/CALL 
references in core loads that are to be built, with- 
out the necessity of recompiling or reassembling 
them. For example, suppose that one has a 
FORTRAN mainline that prints on the 1132, but it is 
desirable to have that print out on the 1403 instead. 
Without the *EQUAT function it would be necessary 
to change the *IOCS record and recompile the pro- 
gram to change from 1132 to 1403 printout. With it 
one has only to specify on the *EQUAT record that 
PRNZ (the 1403 subroutine is to be substituted, 
when the core load is built, for PRNTZ (the 1132 
subroutine) . In such cases the Core Load Builder 
compares each call it encounters with the name(s) 
on the left of the equal sign (=) in the *EQUAT 
record, Every time a match is made the Core 

Load Builder substitutes the name on the right of 
the equal sign for the name it has encountered in the 
DSF code. Note that the *EQUAT function is associ- 
ated with the JOB record, which implies that all 
core loads that are built in a given job will be built 
from the same substitution list. 


The use of this function is not restricted to I/O sub- 
stitutions. One might, for example, have several 
versions of a subroutine, each stored under a 
different name. With this function the effects of 
using each of these subroutines in a core load 

could easily be observed without resorting to 
recompile/reassemble the calling program(s) . 


The user should bear in mind that the calling 
sequences of any substitute pair, i.e. , the sub- 
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routines named ON either side of an equal sign, 

must be identical, since the Core Load Builder 

does no more than substitute one call for the other. 
Thus, CARDZ could not be substituted for PRNZ 
because the 120-word count associated with PRNZ 

is incompatible with the 80-column count associated 
with CARDZ. The FORTRAN user must also become 
aware of the subroutines that are evoked from *IOCS 
record entries. The entries and the ISS subroutines 
they imply are given below: 


ENTRY CORRESPONDING SUBR: 
CALL 
CARD CARDZ 
2501 READER READZ 
1442 PUNCH PNCHZ 
TYPEWRITER TYPEZ 
KEYBOARD WRT YZ 
1132 PRINTER PRNTZ 
1403 PRINTER PRNZ 
PAPER TAPE PAPTZ 
PLOTTER PLOTX 
DISK DISKZ 
UDISK DISKZ 


Another example of the use of the *EQUAT function 
is where a FORTRAN program does its printing on 
the 1132, and this program also exercises the Syn- 
chronous Communication Adapter. These two I/O 
devices cannot be overlapped unless the 1132 is 
serviced by PRNT2. By using the *EQUAT function 
to change PRNTZ (the Subroutine used by FORTRAN 
I/O for 1132 printing) to the name PRTZ2 (a special 
subroutine to interface between PRNTZ and PRNT2), 
1132 printing can then be performed by PRNT2, and 
thus overlapped with the SCA. 


DUMPING DATA FILES TO CARDS AND RESTORING 


It is often advisable to dump important data files to 
cards so that they may be restored if the cartridge 
containing them is destroyed. DUP punches sequence 
numbers in cc 73-80 of the data cards as the file is 
dumped, The numbers start with one and are 
incremented by one with each card. The last se- 
quence number, then, is actually the number of 

data cards dumped, a parameter that is required 

on the STOREDATA card when restoring the file 

to the UA/FXA. 


COPYING AND INITIAL LOADING DISK CARTRIDGES 


Prior to the introduction of the improvements in the 
System Loader and DCIP in Modification 2, much 
time was wasted in copying to a cartridge that con- 
tained a faulty table of defective cylinders or invalid 
cartridge ID. The same was true in initial loading 
such cartridges. The improvements in the two pro- 
grams include the setting and checking of a word in 
sector @IDAD that tells the kind of cartridge it is. 
This word, @DTYP, contains minus one if it is an 
initialized DM1 cartridge minus two if it is a DM2 
non-system cartridge, a zero if itis a DM1 system 
cartridge, and a plus two if it is a DM2 system cart- 
ridge. This word is checked by DCIP before a copy 
is performed, DCIP expects to copy from a system 
cartridge (zero or +2) to a non-system cartridge 

(-1 or -2). The card System Loader checks to see 
that this word indicates a DM2 system cartridge (+2) 
before performing a reload operation, The user 
should use the disk patch facility in DCIP to update 
word @DTYP to the proper value for all cartridges 
built with the aid of DPIR (DM1) or the first release 
of DCIP, The System Library programs COPY and 
DISC perform as the copy and initialize portions, 
respectively, of DCIP with respect to word @DTYP, 


CORE LOADS UTILIZING LOCALs 


Core loads that utilize LOCALs will not necessarily 
run the same way with LOCALs as they would ona 
larger machine without LOCALs. This is due to the 
fact that every time a LOCAL is fetched, it is 
fetched in its initial state from the disk. Thus, un- 
less it comprises read-only code, it will execute 
differently the second and subsequent times it is 
fetched. This same rationale applies equally well 
to SOCALs, at least in theory, but the IBM-supplied 
subroutines that are stored with SOCAL subtype 
codes are read-only code. 
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USE OF INDEX REGISTER 3 


Unless a special set of interrupt level subroutines 

is used (see // XEQ) , it is not possible to use index 
register 3 under certain conditions, even if it is 
saved and restored. The conditions include core 
loads that overlap I/O operations and core loads 
that use the Synchronous Communications Adaptor, 
In general, this register is reserved to point to the 
Transfer vector. 


DISK FILE ORGANIZATION AND PROCESSING 


The disk I/O subroutines supplied with RPG: direct 
access, sequential access, and Index-Sequential Ac- 
cess Method (ISAM), can be used by RPG and Assem- 
bler language programmers. The key to the use of 
the disk I subroutines is an understanding of the 
basic principles of disk file organization and disk file 
processing. 


File Organization 


File Organization is the method of_arranging data re- 
cords on a direct access storage device, i.e., buil- 
ding the file. 

The two types of file organization available with 
DM2 are sequential and indexed- sequential (ISAM). 


Sequential File Organization. A sequential organized 
file is one in which records are placed on the disk in 


the same order they are read in, one after another. 
Card files are always organized this way. That is, 
record six cannot be written until record five is 
written, record five until record four, etc. Sequen- 
tial files may be processed sequential or randomly, 


Index- Sequential (ISAM) File Organization, An index- 


ed- sequential file is one in which records are placed 
on the disk in ascending collating sequence by record 
key. This key may be a part number, man number 

or any other identifying information that is present 
in the records on the file. In addition, the indexed- 
sequential file uses an index to indicate to the proces- 
sing program the general location of the desired reco- 
rds. Each index entry contains a cylinder address 
and the highest record key on that cylinder. All index 
entries are formed into an index table. For cylinders 
that have overflowed, the index also contains the over- 
flow sector address and key of the first sector over- 
flowed from that cylinder. 


Index tables are analogous to the index card file 
in a library. If you know the name of a book (record 
key), you can look in the card file (index table) until 
you find the card (entry) for that book. On the card 
you will find a number (cylinder address) where the 
book (record) is located. You go to the shelf (seek) 
and find the number (cylinder address) you are look 
ing for. Now you can search for the particular book 
(record) by title (record key). 

Records on an indexed-sequentially organized file 
may be processed sequentially or randomly. 


File Processing. 


File processing is the method of retrieving data re- 
cords from the file, i.e., using the file. 

Four methods of file processing are available 
with DM2 RPG: 


1. Sequential processing of sequentially organized 
files 

2. Random processing of sequentially organized files 

3. Sequential processing of indexed- sequentially or- 
ganized (ISAM) files 

4, Random processing of indexed- sequentially orga- 
nized (ISAM) files. 


Sequential Processing (Sequential Files). All rec- 


ords in the file are processed in order starting with 
the first physical record in the file. 


Random Processing (Sequential Files), In random 


processing the sequence of record processing is not 
related to the physical sequence of records on the 
file. To find a record in a sequentially organized 
file, the record number must be supplied to the pro- 
gram. The record number indicates the relative po- 
sition (sequential location) of the record in the file. 
The disk I/O routine calculates the sector address 
from the record number and reads the proper record. 


Sequential Processing (Indexed-Sequential Files). All 


records in an ISAM file are available in a sequence 
determined by record key. Processing may start at 
the beginning of the file or at any point within the file. 


Random Processing (Indexed-Sequential Files). To 


find a random record in an ISAM file, the files index 
is searched using the record*s key. The matching 
entry in the index points to the cylinder containing 


| using the sequential access routine. 


the record. That cylinder is then searched for the 
desired record. The match is again made by record 
key. This kind of processing may be called process- 
ing in a random sequence with record keys. 


CALCULATING SEQUENTIALLY ORGANIZED AND 
ISAM FILE SIZE 


The file is initially established on the disk by using 
a DUP STOREDATA function. STOREDATA sets 
aside a specified number of sectors for the file and 
enters the filename in LET or FLET. This file 
name must be used in all future references to this 
file. 


Sequentially Organized Files 


The number of sectors needed for a file depends on 
record size and number of records. The records 
are fixed length and can be defined as any size be- 
tween 320 words (640 characters) and 1 word (2 
characters). Note that records cannot extend across 
sector boundaries. Thus a 320 word record (one 
sector) and a 161 word record would each require 
one sector of disk space. Careful planning is re- 
quired in calculating optimum record size for your 
file. 

Output file size in sectors=number of records (num- 
ber of records that can be contained in each sector). 
Output record size in words=numbers of records+1/ 
(number of records that can be contained in each sector). 
Note 1. Ifthe above formulae produce answers with 
fractional parts, the file and record size are obtained 
by rounding off to the next higher whole number. 

Note 2. The number of records that can be contained 
in each sector (the denominators of the first two for- 
mulae)=320/(record size in words). The remainder, 
if any must be ignored. 320 is the number of words 
per sector. 

To change record sizes or add records to a se- 
quential file the file must be rebuilt. If the revised 
file requires additional sectors it must be redefined 
and rebuilt. A sequentially organized file is built 
It may be pro- 
cessed by either the sequential access routine or 
the direct access routine. These routines are de- 
scribed in the 1130 Subroutine Library manual, 
Form C 26-5929. 

ISAM Files 


The number of sectors required for an ISAM file is 
computed by the following formula. (The remainder 
in all cases should be disregarded. ) 
Prime data sectors + Index sectors + Overflow 
sectors + 1 (File label) 
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Where: 
Prime data sectors = 


Approximate number of records in file + number 


of records per sector - 1 
Number of records per sector 


Number of records per sector = 320 
Record size +2 


The maximum record size is 318 words. Records 


cannot cross sector boundaries. 


Index sectors = 


Number of prime data cyliners + number of index 


entries per sector - 1 
Number of index entries per sector 


Number of prime data cylinders = 


Number of prime data sectors +7 
8 


Number of index entries per sector = 
320 
Index entry size 


Index entry size = 2 (key length in words) + 3 

Key length is a maximum of 25 words (50 charac- 
ters). 
add one when calculating the number of words, 
i.e., 49 characters require 25 words. 


Overflow sectors = The number of sectors the user 
wishes to allot to record over- 
flow before the file must be re- 
built. The overflow area is 
automatically assigned to start 
at the sector following the last 
sector of prime data. This 
assignment is done by the ISAM 
load (close) routine. 


When computing file size always add one sector 
for the file label. 
If desired, an assembler language program can be 


If the length of the key in characters is odd. 


used to perform the above calculations. The pro- 
grammer need only know the index entry size (calcu- 
lation shown above), the length of a record in words, 
the approximate number of records in the file and an 
estimate of the number of sectors of overflow area 
needed. 

A program to calculate all values computed above 
is included in this manual as sample program 7 in 
Appendix J. The values calculated by the program 
or by the manual method will be required as entries 
in the Disk File Information (DFI) tables for the ISAM 
routines. 

An indexed- sequential file is built using the ISAM 
load routine, expanded using the ISAM add routine 
and processed by either the ISAM sequential or ISAM 
random routine. These routines are described in the 
1130 Subroutine Library manual, Form C26-5929, 


CONTENTS OF AN ISAM FILE 


An ISAM file comprises the following: file label; 
file index; prime data area; overflow area. 


File Index Prime Data Area Overflow Area 
Label 


The relative position of these components within 
the ISAM file is as follows 


File 


Label Index 


Prime Data Area Overflow Area 


ISAM File Label, The first sector of any ISAM file 
contains the file label. This label contains informa- 
tion required by the ISAM routines for all future pro- 
cessing of the file. The file label is built by the 
ISAM load function, updated by ISAM add, and used 
by ISAM random and sequential. All label operations 
are performed automatically by the ISAM routines. 
The user need perform no label operation other than 
reserving one sector for the label when the file is 
initially defined. 

The format of the ISAM label is shown in 
Figure 11, 2. 


*Figure 11,2, Format of an ISAM Label 


Word Number Label Entry Description 


Key length 

Record length 

Number of index entries per sector 
Index entry length 

Number of records per sector 

Record number of last prime data record 
Index entry number of last entry in file 
Sector address of last prime data record 
Sector address of last index entry 
Sector address of next overflow record 
Record number of next overflow record 
















—a SOON OUAWN— 


-—o 





ISAM File Index. 
ords anywhere in a file is provided by the file index. 
An entry in this index contains a cylinder address 
and the highest key that is associated with that cyl- 


The ability to read or write rec- 


inder. The ISAM routines locate a given record by 
searching the index for the key and then searching 
the specified cylinder for the desired record, again 
searching by key. To increase the efficiency of the 
ISAM routines, one sector of the index is retained 
in core storage for each file. 

The key may be a part number or an employee 
name or any other identifying information that is 
contained in any record of the file. The key entries 
in the index are the numbers of the highest key on 
each cylinder in ascending collating sequence. The 
end of file record key is the key with the highest 
possible value, i.e., all bits are ones. 

A portion of an index or index table is shown 
below. Note that each entry contains two sets of the 
same information. The second set is overlayed to 
show overflow data when the effected cylinder over- 
flows. 


Overflow 


sector 





normal entry 


Key | Third ey |Third . n th 
45 | cylinder 45 cylinder 1 cylinder cylinder 
address address i address 


address 





sae entry last entry in index 


Prime Data Area. This area contains the data rec- 
ords placed in the file by the ISAM load routine. The 
records must all be the same length (maximum 318 
words). ISAM adds a two-word control field to each 
record. This control field, called the sequence- 
link control field, is used in the overflow area as a 
chaining indicator, It is used in the prime data area 
to indicate whether or not a cylinder has overflowed. 
Prime data area records appear as follows. 





Sequence~link 
control field. 


a 
Data record on a prime 
data cylinder. 


Data record 





Sequential-link 
control field. 


eel 
Last data record on a 
prime data cylinder 
that has overflowed. 


Overflow Area. When a new record is added to an 
indexed- sequential file it is placed according to key 
sequence. If records were to remain in precise 
physical order the insertion of each new record 
would require all records with higher keys to be 
shifted up. However, because ISAM files have an 
overflow area, a new record can be entered into its 
proper position on a cylinder and only cause records 
with higher keys on that cylinder to be shifted. The 
record that is forced off the end of the cylinder by 
the addition of the new record is written in the over- 
flow area. 

The index entry of any cylinder that has over 
flowed points to the overflow sector address and 
record number of the overflowed record in the over- 
flow area. If two or more records in key order are 
added, the overflowed records are chained together 
in the overflow area through the entries in their 
sequence-link control field. The entry in the first 
record points to the second, the second to the third, 
etc. The last overflow record in the chain has a 
sequence-link control field of all zeros. 

The number of cylinders to be allotted to the over- 
flow area must be determined by the programmer 
when the file is initially defined. Records are pla- 
ced in the overflow area in the order they have over- 
flowed , not in key sequence. 

To illustrate the overflow area, assume that on 
cylinder six of a defined file the last three entries 
have keys 150, 152 and 154, Key 154 would iden- 
tify cylinder six in the index. Now we add a record 
with key 153, a record on another cylinder and a 
record with key 151. The overflow area would ap- 
pear as shown below. Key 152 would identify cylin- 
der six in the index. The overflow entry for cylinder 
six in the index would point to the overflow area. 
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Overflow area. 


Key 
154 


{ I 
jZeros Zeros 


| 
[Zeros |Zeros 


Record overflowed from 
another cylinder. 


' First record overflowed. 
The sequence-link con- 
trol field is zeros indica- 
ting the end of a chain. 


jOverfo lw | 
jsector jRe 


153 : 
jaddr. 0001 





Last record overflowed. 
The sequence-link con- 
trol field points to the 
next key in sequence. 
in this case its key 154 
in the overflow area. 


DELETING DUPLICATE RECORDS CAUSED BY A 
DISK ERROR DURING AN ISAM ADD OPERATION 


If a disk error occurs during an ISAM add (error code 
code/5004 in the accumulator) it may cause a record 


to be duplicated on the file. 


To check for a dupli- 


cate record, list the file or part of the file using 


ISAM sequential retrieve. 
record, one copy must be deleted. 


If there is a duplicate 


To determine which record to delete, dump the 
file using a DUP DUMP and check the index entry for 
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the affected cylinder. If the key of the duplicate 
record is less than or equal to the first key in the 
index entry, delete the second of the two records. If 
the key of the duplicate record is greater than the 
first key in the index entry, delete the first of the 
two records. In both cases, the remaining record 
is the one that will be processed by the ISAM random 
retrieve function, 
Note that the duplicate record cannot be physically 
deleted. It is 'Deleted" by performing a sequential 
read and flagging the copy that is no longer to be used. 


The System Library is a group of disk-resident sub- 
programs and mainline programs that perform I/O, 
conversion, arithmetic, and disk initialization and 
disk maintenance functions. A paper tape utility pro- 
gram (PTUTL) is also included in the System Library. 
Appendix F is a listing of the Monitor System Library. 


ADDING AND REMOVING SUBROUTINES 


Subroutines can be added to or deleted from the Monitor 
System Library as desired by the user. The DUP con- 
trol record STORE is used to add a subroutine and the 
DUP control record DELETE is used to remove a pro- 
gram (see DUP Control Records). Each program in the 
IBM-supplied system deck is preceded by a DUP STORE 
control record. 

The user should not remove subroutines that are 
called by other subroutines left in the System Library 
(refer to Appendix F for a list of subroutines called by 
other subroutines). Neither should he delete any of the 
mainline programs, since they may be required by 
Monitor programs. 


SYSTEM LIBRARY SUBROUTINES 


The 1130 Monitor System Library contains a group of 
programs that aid the programmer in making efficient 
use of the 1130 Computing System. Descriptions of the 
programs and methods for programming them are con- 
tained in the publication, IBM 1130 Subroutine Library 
(Form C26-5929). From an operational standpoint, the 
programs of particular interest are the ISSs, which 
manipulate the I/O devices attached to the 1130 Comput- 
ing System and handle all programming details peculiar 
to each device. Table 5 lists the ISSs supplied with the 
1130 Monitor system. 


NOTE: User-written ISSs should be numbered from 20 
down to avoid conflict with IBM-assigned ISS numbers 
(see Digit 1 under Preoperative Errors). 


NOTE: Although the disk subroutines are technically not 
ISSs, they have most of the characteristics of an ISS. 


The following paragraphs describe the use of some of 
the IBM-supplied ISS subroutines and discuss preoper- 
ative errors and I/O error restarts in which special 
handling is required. All addresses are given in sym- 
bolic form. See the table of equivalence in the listing of 
the Resident Monitor (Appendix H) to equate the symbolic 


to the absolute addresses. ISS preoperative error WAITs 


are listed in Appendix A. 


MONITOR SYSTEM LIBRARY 


PREOPERATIVE ERRORS 


A preoperative error is an error condition detected 
before an I/O operation is started. It denotes either an 
illegal parameter, an illegal specification in the I/O 
area, or a device not-ready condition. This error 
causes a trap to $PRET and the following conditions: 


e The Instruction Address Register displays the 
address $PRET+1. 


e The Accumulator displays an error code repre- 
sented by four hexadecimal digits. 


Digit 1 identifies the ISS called: 


1 - CARDx or PNCHx 
2- TYPEx or WRTYx 


3 - PAPTx 

4 - READx 

5 - DISKx 

6 - PRNT1, PRNT2, or PRNTZ 
7 - PLOTI1 

8 - SCATx 

9 - PRNT3 or PRNZ 

A - OMPRI1 


Digits 2 and 3 are not used. 
Digit 4 identifies the error: 


0 - Device not ready 
1 - Illegal parameter or illegal specification in 
I/O area 


Table 5. 1130 Disk Monitor System ISS Names 


1442 Card Read Punch CARDZ, CARDO, or CARDI 


2501 Card Reader READZ, READO, or READ1 
1442 Card Punch 


Disk DISKZ, DISK1, or DISKN 


PNCHZ, PNCHO, or PNCH1 
1132 Printer PRNTZ, PRNT1, or PRNT2 
1403 Printer PRNZ, or PRNT3 


TYPEZ, or TYPEO 


Keyboard/Console Printer 


Console Printer WRTYZ, or WRTYO 


1134/1055 Paper Tape Reader 
Punch 


PAPTZ, PAPTI, PAPTN, OR PAPTX 


1627 Plotter PLOTI 
1231 Optical Mark Page Reader OMPR1 





Synchr. Comm. Adapter SCAT1, SCAT2, or SCAT3 
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e $PRET contains the address of the call in 
question. 


The ISS is set up to attempt initiation of the operation 
a second time if the CALL is re-executed. Pressing the 
PROGRAM START key will return control to the ISS for 
a re-execution of the call. 

When a preoperative error is encountered the operator 
can: 


e Correct the error condition if possible and press 
PROGRAM START, or 


e Note the contents of the Accumulator and location 
$PRET, dump core storage, and proceed with the 
next job. 


1442 CARD SUBROUTINE ERRORS 
(CARDx AND PNCHx) 


Error Parameters 


CARDZ, CARDO, PNCHZ, or PNCHO. There is no 
error parameter. If an error is detected during proc- 
essing of an operation-complete interrupt, the subrou- 
tine traps to $PST4, with interrupt leve] 4 on. After 
the 1442 is made ready, pressing the PROGRAM START 
key will cause the operation to be reinitiated. 


CARD1 or PNCH1. There is an error parameter. If 
an error is detected during processing of an operation- 
complete interrupt, the user program can elect to 
terminate (clear "subroutine busy indicator" and turn 
off the interrupt level) or to retry. A retry consists of 
waiting at $PST4 with interrupt level 4 on and then re- 
initiating the function. 


Last Card. A read or feed function requested after the 
last card has been detected causes the last card to be 
ejected, and a trap to $PRET occurs. A punch function 
will punch and then eject the last card with a normal exit. 


1442 Errors and Operator Procedures 


If a 1442 error occurs, the 1442 becomes not-ready 
until the operator has intervened. Unless the stop is 
caused by a stacker full (no indicator) or chip box indi- 
cation, the 1442 card path must be cleared before pro- 
ceeding. The 1442 error indicators and the position of 
the cards in the feed path should be used to determine 
which cards must be placed back in the hopper. 

For the card subroutines, a retry consists of position- 
ing the cards (i.e., skipping the first card in the hopper, 
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if necessary, on a read or feed operation) and reiniti- 
ating the function whenever the card reader becomes 
ready. 

Read errors do not apply to the 1442-5. 


Hopper Misfeed. Indicates that card 2 failed to pass 
properly from the hopper to the read station during 
the card 1 feed cycle. 

Card positions after error: 


Punch Station 


Read Station 


Corner 


Stacker Hopper 





HOPR 

When program halts, press 
NPRO to eject card 1, place 
card 1 in hopper before card 
2, and ready the 1442. 


Error indicator: 
Operator procedure: 


Feed Check (punch station). Indicates that card 1 is 


improperly positioned in the punch station at the com- 
pletion of its feed cycle. 
Card positions after error: 


Punch Station 


Read Station 


Corner 


Stacker Hopper 





PUNCH STA 

When program halts, empty 
hopper, clear 1442 card path, 
place cards 1.and 2 in hopper 
before card 3 and ready the 
1442. 


Error indicator: 
Operator procedure: 


Transport. Indicates that card 1 has jammed in the 
stacker during the feed cycle for card 2. 
Card positions after error: 
Punch Station 


Read Station 


Corner 


Stacker 





Error indicator: TRANS 

Operator procedure: When program halts, empty 
hopper, clear 1442 card path, 
place cards 2 and 3 in hopper 
before card 4, and ready the 
1442, 


Feed Cycle. Indicates that the 1442 took an unre- 
quested feed cycle and, therefore, cards 1, 2, and 3 
are each one station farther ahead in the 1442 card 
path than they should be. 

Card positions after error: 


Punch Station 


Read Station 


Corner 


Stacker 





Error indicator: FEED CLU 

Operator procedure: When program halts, empty 
hopper, press NPRO to eject 
cards 2 and 3, place cards 1, 
2, and 3 in hopper before 
card 4, and ready the 1442. 


Feed Check (read station). Indicates that card 1 failed 


to eject from the read station during its feed cycle. 
Card positions after error: 


Punch Station Read Station 









Corner 


Stacker — Hopper 


READ STA 


Error indicator: 

Operator procedure: When program halts, empty 
hopper, clear 1442 card path, 
place cards 1 and 2 in hopper 
before card 3, and ready the 
1442, 


Read Registration. Indicates incorrect card registra- 
tion or a difference between the first and second reading 
of a column, 

Card positions after error: 


Punch Station Read Station 






Corner ——+| 


Stacker —> 


READ REG 

See Feed check (punch station). 
Repeated failures of this type 
might indicate a machine mal- 
function. 


Error indicator: 
Operator procedure: 


Punch Check. Indicates an error in output punching. 
Card positions after error: 


Punch Station 


Read Station 


Corner 


Stacker 





PUNCH 

When program halts, empty 
hopper, check card position 
and press NPRO to clear 1442 
card path. If necessary, cor- 
rect card 1 to prepunched state. 
Place (corrected) card 1 and 
card 2 in hopper before card 3 
and ready the 1442. 


Error indicator: 
Operator procedure: 


2501 CARD SUBROUTINE ERRORS (READx) 


Error Parameters 


READZ or READO. There is no error parameter. If an 
error is detected during processing of an operation- 
complete interrupt, the subroutine traps to $PST4, with 
interrupt level 4 on. After the 2501 is made ready, 
pressing the PROGRAM START key will cause the 
operation to be reinitiated. 


READ1. There is an error parameter. If an error is 
detected during processing of an operation-complete 
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interrupt, the user program can elect to terminate 
(clear "subroutine busy indicator" and turn off the 
interrupt level) or to retry. A retry consists of waiting 
at $PST4 with interrupt level 4 on until the 2501 be- 
comes ready, and then reinitiating the function. 


Last Card. <A read function requested after the last 
card has been detected causes a trap to $PRET. 


2501 Errors and Operator Procedures 


If a 2501 error occurs, the 2501 becomes not-ready 
until the operator has intervened. Unless the stop is 
caused by a stacker full or cover open (ATTENTION), 
the 2501 card path must be cleared before proceeding. 
The 2501 error indicators and the position of the cards 
in the feed path should be used to determine which 
cards must be placed back in the hopper. 

For the card subroutines, a retry consists of posi- 
tioning the cards (i.e., skipping the first card in the 
hopper, if necessary) and reinitiating the read function 
whenever the card reader becomes ready. 


FEED CHECK. A feed check indicates that a card is 
mispositioned in the feed path or a card has failed to 
feed from the hopper. 

When the program traps to $PST4, empty the hopper 
and clear the 2501 card path. Ifa card is improperly 
positioned at the pre-read station (it has not been read), 
place this card ahead of the cards remaining to be 
read, place the deck back in the hopper, and ready the 
2501. 


READ CHECK. A read check indicates incorrect 
card registration or a difference between the first and 
second reading of a column. 

When the program traps to $PST4, empty the hopper, 
NPRO, place the last two cards in the stacker ahead of 
the deck remaining to be read, place this deck back in 
the hopper, and ready the reader. 


CONSOLE PRINTER SUBROUTINE ERRORS 
(TYPEZ, TYPEO, WRTYZ, and WRTY0) 


If the carrier attempts to print beyond the manually 
positioned margins, a carrier restore (independent of 
the program) occurs. 

Subroutine printing begins wherever the carrier is 
positioned as a result of the previous print operation. 
There is no automatic carrier return as a result of a 
call to the subroutine. 

If the Console Printer indicates a not-ready condi- 
tion after printing has begun, the subroutine traps to 
$PST4 with interrupt level 4 on. After the Console 
Printer is made ready, pressing the PROGRAM START 
key will cause the operation to be reinitiated. 
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KEYBOARD SUBROUTINE FUNCTIONS 
(TYPEZ and TYPE0) 


Re ~entry 


When the ERASE FIELD key is pressed, a character 
interrupt signals the interrupt response subroutine that 
the previously-entered Keyboard message is in error 
and will be re-entered. The subroutine prints two 
slashes on the Console Printer, restores the carrier to 
a new line, and prepares to replace the old message in 
the I/O area with the new message. The operator then 
enters the new message. The old message in the I/O 
area is not cleared. The new message overlays the 
previous message, character by character. If the 
previous message was longer than the new message, 


_ Characters from the previous message remain (followin 


the NL character which terminated the new message). 

When the interrupt response subroutine recognizes 
the end-of-message control character, it assumes the 
message has been completed, stores an NL character 
in the I/O area, and terminates the operation. 


TYPEZ does not print two slashes when ERASE FIELD 
key is pressed, 


Backspace 


When the backspace key is pressed, the last graphic 
character entered is slashed and the address of the next 
character to be read is decremented by +1. If the back- 
space key is pressed twice consecutively, the character 
address is decremented by +2, but only the last graphic 
character is slashed. For example, assume that 
ABCDE has been entered and the backspace key pressed 
three times. The next graphic character replaces the C 
but only the E is slashed. If the character F had been 
used for replacement, the paper would show ABCDE FF] 
but ABFFF would be stored in the buffer. 

TYPEZ treats the backspace key as if it were the 
erase field key. 


PAPER TAPE SUBROUTINES (PAPTX) 


If the reader or punch becomes not ready during an 
I/O operation, the subroutines exit to the user via the 
error parameter. The user can request the subroutine 
to terminate (clear device busy on the interrupt level) 
or to wait at $PST4 (postoperative error trap) waiting 
for operator intervention (interrupt level 4 on). 

If the 1134/1055 indicates a not-ready condition after 
an operation has been initiated, the subroutines trap to 
$PST4 with interrupt level 4 on. After the device has 
been made ready, pressing the PROGRAM START key 
will cause the operation to be reinitiated. 


SYSTEM LIBRARY MAINLINE PROGRAMS 


The 1130 System Library mainline programs provide 
the user with the ability to perform disk maintenance 
and paper tape utility functions by requesting execu- 

tion of the appropriate program directly through the 

job stream. 


DISK MAINTENANCE PROGRAMS 


The disk maintenance programs are mainline programs 
that are a part of the System Library and that initialize 
and modify disk cartridge IDs, addresses, and tables 
required by the Monitor system. Normally, they should 
never be deleted from the System Library. 

The disk maintenance mainline programs are: 


IDENT - Print Cartridge ID 

DISC - Satellite Disk Initialization* 

DSLET - Dump System Location Equivalence 
Table 

ID - Change Cartridge ID 

COPY - Disk Copy 

ADRWS - Write Sector Addresses in 
Working Storage 

DLCIB - Delete CIB 

MODIF - Monitor System Update 


The disk maintenance programs (except ADRWS) 
are called by an XEQ monitor control record. Some 
disk maintenance programs also require an ID control 
record. The format and use of the ID control record 
is described under the program descriptions which 
follow. 


IDENT (Print Cartridge ID) 


This program prints the ID and physical drive number 
of each cartridge mounted on the system. The program 
overrides any cartridge IDs specified on the JOB card 
and operates with all ready drives. IDENT will read 
and print illegal IDs including negative numbers. 

The calling sequence for IDENT is: 


120304 5 6 7 8 9 10 1) 12:93 S16 7B 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 ¢ 


ALE iG (1 


*All new cartridges must be initialized with DCIP before any operation 
is performed under Monitor control. DCIP also provides a disk copy 
function similar to the COPY program in the System Library. 


Printout 
PHYSICAL DRIVE CART. ID 
00 XXXX 
01 XXXX 
02 XXXX 
03 XXXX 
04 XXXXK 


where 


XXXX is the cardridge ID. Only the IDs on ready 
drives are printed. 


DISC (Satellite Disk Initialization) 


This program re-initializes up to four satellite 
cartridges -- all but the master cartridge (see DCIP). 
DISC gives the user the ability to re-initialize a disk 
cartridge on line. It writes the sector addresses, 
defective cylinder addresses, a cartridge ID, a LET, a 
DCOM, an error message program, and a CIB on each 
cartridge initialized. 

DISC overrides all cartridge IDs specified on the 
JOB card except the master cartridge ID. 

The calling sequence for DISC is: 

A Ome, 


9, ik LA 8. LA A oyeye ats LD) 2 


where 


FID1 through FIDn are the IDs currently on the 
satellite cartridges to be re-initialized (identified 
by IDENT or a JOB record). 


TID1 through TIDn are the IDs to be written on the 
satellite cartridges by this program. A valid 
cartridge ID is a number between /0001 and /7FFF. 


DISC Operation 


DISC causes all selected satellite drives to seek home. 
The program then writes sector addresses and three 
distinct bit patterns (/AAAA, /5555, and /0000) on all 
sectors on the first cylinder of the first disk cartridge 
being reinitialized. The program reads back each pat- 
tern after it is written, If no error occurs on any of 
the patterns, DISC continues to the next cylinder. 

This procedure is repeated until all 203 cylinders have 
been checked, The program then starts reinitialization 
on the next cartridge selected. If a read error occurs, 
the cylinder on which the error occurred is rewritten 
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and reread 50 times using the same pattern that caused 
the error to appear. If a second error occurs, the first 
sector address of the cylinder is placed in the defective 
cylinder table in word 1 of sector @IDAD. If a second 
and third defective cylinder are found, their cylinder 
addresses are written in words 2 and 3 of sector 
@IDAD. If there are no defective cylinders on the 
cartridge, words 1, 2, and 3 contain /0658. The 
cartridge ID is written in word 4 and the copy ID is 
written in word 5 of sector @IDAD. An error message 
(NON-SYST. CART. ERROR) and the program to print 
it on the Console Printer is also stored in sector 
@IDAD. The error message is printed if a cold start 
is attempted on this non-system cartridge. 


te 


Printout 


When DISC is executed, the user punched *ID record 
is printed on the principal print device. Following this 
printout one or more of the following error messages 
may be printed. 


CARTRIDGE XXXX INVALD... LOGO CARD ID 


The ID of the master cartridge (logical drive 0) 
has been specified as a current ID on the *ID card. 


CARTRIDGE XXXX NEW LABEL IS INVALID 

A new ID is outside of the range /0001 - /7FFF. 
CARTRIDGE XXXX IS NOT AVAILABLE 

A selected cartridge is not on the system 


CARTRIDGE XXXX IS DEFECTIVE 


Sector @IDAD or more than 3 cylinders are defective 
on a satellite cartridge being reinitialized (to identify 
the defective cylinders, initialize the cartridge using 
DCIP). 


Following the reinitialization of the selected cartridges, 
the following message is printed, 


XXXXYYYY NOT DONE 

or 

COMPLETE 
XXXX is the old (FID1) cartridge ID 
YYYY is the new (TID1) cartridge ID 
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One line is printed for each satellite cartridge that is 
reinitialized. A NOT DONE message should appear only 
if an error message has previously been printed, 


DSLET (ump System Location Equivalence Table) 


This program dumps the contents of SLET to the principal 

print device. Each entry printed consists of a symbolic 

name, phase ID, core address, word count, and disk 

sector address. A SLET dump is shown in Appendix I. 
The calling sequence for DSLET is: 


12 3 4 5 6 7 g $ 10 1) 12 13 14 15 16 17 _18 19 20 21 22 23 24 25 26 27 28 29 30 3? 32 33 _ 34 35; 


fh 1D 


ID (Change Cartridge ID) 


This program changes the ID on up to four satellite 
cartridges. 
The calling sequence for ID is: 


’ 4 6 7 9 10 1 14_15_16 17_18 19 20 2) 22 23 24 25 26 27 28 29 30 31 12 Ka] 


a, 8; 


D 2 Dr o. ®, e191? Ne pn 


where 


FID1 through FIDn are the IDs currently on the 
satellite cartridges being changed (these IDs 
must be in the same logical order as the entries 
on the JOB card), 


TID1 through TIDn are the new IDs to be written 
on the selected satellite cartridges. A valid 
cartridge ID is a number between /0001 and /7FFF. 


Printout 
FFFF TTTT NOT DONE 
or 


COMPLETE 


where 


FFFF is the FROM ID 

TTTT is the TO ID 

NOT DONE is printed if a selected cartridge is not 
found on the system. 


One line is printed for each cartridge ID that is changed 
(maximum 4). 


COPY (isk Copy) 


This program copies the contents (except the defective 
cylinder table and the cartridge ID) of one cartridge onto 
another. The copy ID (word 5 of sector @IDAD) is incre- 
mented by one on the destination cartridge. The cart- 
ridge to be copied onto must have previously been initi- 
alized (see DISC or DCIP). 

The calling sequence for COPY is: 


12 3 4 § 6 7 6 9 10 11 12:13 14 15 16 17 18:19 20 21 22 23 24 25 26 27 28 29 30 31 32 33_ 34 35 % 
£\ (Sh 


TD: D D) Dy DiZisiti es? Duy Dw 


where 


FID1 through FIDn are the IDs of the cartridges 
to be copied, 


TID1 through TIDn are the Ds of the cartridges 
onto which the copies are to be made. 


If multiple copies are to be made from a single 
master, FID1 through FIDn will all contain the same ID. 

If a system cartridge from a system with a different 
configuration is copied, it will be necessary to reconfigure 
the cartridge before a Cold Start can be performed (see 


System Reload). 


Printout 
FFFF TTTT NOT DONE 
or 
COMPLETE 
or 
NOT PRES 
or 


NO. ERROR 


where 


FFFF is the FROM ID 

TTTT is the TO ID 

NOT PRES indicates that the ID requested was not 
found. 

NO. ERROR indicates that the ID requested exceeded 
/TFFF. 


One line is printed for each copy requested on the *ID 
record. The printout occurs at the end of the job. 


ADRWS (Write Sector Addresses in Working Storage) 


This program, linked to from DUP on detection of the 
DUP control record, DWADR, writes the sector address 
on each sector of Working Storage of the disk cartridge 
specified in the DWADR control record (see *DWADR 

in DUP Control Records). ADRWS is intended for sys- 
tem use only. 


DLCIB (Delete Core Image Buffer) 


This program deletes the CIB from a non-system 
cartridge. If a User Area is defined, it is moved two 
cylinders closer to cylinder 0. The new addresses of 
disk areas moved as the result of the deletion of the 
CIB are reflected in DCOM on the master cartridge, 
on the non-system cartridge from which the CIB is 
deleted, and in COMMA. 

The calling sequence for DLCIB is: 


12 45 7 8 9 10 11 12 13 14 35 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 : 
Ch iit 2, 


peel DiGi Aik 


where 


CART is the ID of the non-system cartridge from 
which the CIB is to be deleted. 


Printout 

CART UA/FX FPAD 
XXXX  YYYY NNNN 
or 

XXXX ERROR 
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where 


XXXX is the cartridge ID 

YYYY is the User Area sector address 

NNNN is the File Protect Address 

ERROR is printed if the CIB was not deleted 
(cartridge not found on system or cartridge not 
specified on JOB card) 


MODIF--SYSTEM MAINTENANCE PROGRAM 


Included in the System Library is a system maintenance 
program, MODIF, that provides the user with the ability 
to update the Monitor system on the master cartridge. 
This program makes changes to the version and modi- 
fication level word in DCOM, and can be used to update 
both System Programs and/or the System Library. A 
card deck or paper tape containing corrections to update 
the Monitor system to the latest version and modifica- 
tion level is supplied by IBM. Every modification must 
be run to update the version and modification level, even 
if the affected program has been deleted from the system. 


NOTE: The replacement of a system program phase that 
contains reload entries (references to SLET generated 
by the System Loader during an initial or reload opera- 
tion) cannot be performed by MODIF. MODIF does not 
update the System Reload Table. The replacement 
phase must be loaded by a system reload. 


The calling sequence for MODIF is: 


12,3 4 5 6 7 8 9 10 1) 12 13 14:15 16 17 18 19 2 21 22 23 24 25 26 27 28 29 3 31 32 33 34:35 : 


A Qh MCAD 


System Program Maintenance 


Typical input for System Program update is shown in 
Figure 12, 









<q—£{—_ Next Monitor Control 
Record 


<—q—————— MODIF Define End Record 


. Following System Program 
*“/ + Maintenance Contro! Records 
and Data Records (if any). 


Data Records 








// XEQ MODIF 
<q———————- System Program Maintenance 
Control Record 


~<————— System Maintenance Program Call 


Figure 12, Layout of an Input Deck for a System Program 
Update 


System Program Maintenance (Patch) Control Record 


Each Monitor program phase to be changed requires a 
patch control record. If MODIF determines in analyzing 
SLET that the FORTRAN Compiler or the Assembler ha. 
been voided from the disk, modifications to these pro- 
grams are not made; however, the version and modifi- 
cation levels for these programs are updated in DCOM. 
The format of the patch control record is as follows. 


Card . 
Column Contents 





J 
a ees | 
These characters identify a system patch 

to the FORTRAN Compiler, RPG Compiler, 
Assembler, DUP, Supervisor, Core Load 
Builder, System Device Subroutines", 

or Core Image Loader 

























The version (v) and modification 
level (mm) are specified in hexa- 
decimal. 


0 = System Modification Update 
G = General temporary fix 
R = Restricted temporary fix5 


The SLET ID of the Monitor 

program phase to which the patch 

is to be made is specified in hexa- 
decimal. 0000 indicates an absolute 
patch (see columns 28—31, 33-36). 


*nnnn” specifies (in hex) the number 
of patch data records following this 
patch control record. 


This character identifies the format 
of the patch data records (bin 
system format or hex patch format) 








*pppp” specifies (in hex) the total 
number of patch control records to 
be processed. This parameter is 

required on the first patch control 
record only. 








The drive code (d) and sector ad- 
dress (sss) of the program to be 
patched are specified in hexadeci- 
mal, ‘This field is used only when 
the SLET ID (columns 11-14) is 0. 









*cecc” specifies (in hex) the core 
address of the first word of this 
sector. This field is used only whe 
the SLET ID (columns 11-14) is 0. 











Not used 





Modifications to subroutines in the System Device Subroutine 
Area must be made with a *MON patch, not a *SUB DELETE 
and STORE, 

2, A MODIF job may perform both System Program and System 
Library maintenance (see System Library Maintenance). In such 
a case the number in columns 23-26 must include the *SUB 
card in the count. Only one,,subroutine control+record is 
allowed in any MODIF job, and it must be the last MODIF 
control record (not counting // DEND) in the stacked input. 

3. Core addresses can be obtained from the microfiche listing. 

4. This fix can only be installed on a system with«the same level 
or one higher than that indicated in *MON or *SUB card. It 
will not change the level of the system. 

5. This fix can only be installed on a system with the same level 

as indicated in a *MON or *SUB card. 














Patch Data Record Formats 


Patch Data Records may not contain CALLs or LIBFs, 
nor will the relocation indicators be used. 


Binary System Format, 


Word Contents 
ak Location 
2 Checksum 
3 Type Code (first 8 bits) 00001010 
4-9 Relocation Indicators 


10-54 Data words 1 through 45 
55-60 ID and sequence number or may be blank 


Hex Patch Format. 


Card 
Column Contents Notes 


"aaaa" specifies (in hex) the core 
address (origin) of the patch. Each 
patch record must have a core 
address, 


Each 4-column field contains one 
word of patch data (in hex), Up to 
13 words of patch data can be speci- 
fied per record, A blank column 
follows each word, 


Not used 





Hex patch cards may contain ID/sequence numbers. 
Zeros must be punched as leading blanks will not be 
assumed. 


System Library Maintenance 


Changes to the System Library require the deletion of 

the old program and the storing of the new one. 

MODIF updates the version and modification level word; 

the actual operation is performed by a DUP DELETE 

operation, followed by a DUP STORE operation. 
Typical input for System Library maintenance is 

shown in Figure 13. 


Next Monitor Control Record 






MODIF Define End Record 


panne DELETE and STORE and New 


Version of System Library Program, ... 


+ New Version of System 
Library Program XXXXX 


aa Control Records 


-———— System Library Maintenance 
Control Record 


MODIF 





// XEQ MODIF 


System Maintenance 
Program Call 


Figure 13, Layout of an Input Deck for a System Library Update 


System Library Maintenance (Subroutine) 
Control Recor 


Only one subroutine control record may appear ina 
MODIF job; however, any number of DELETEs and 
STOREs may be performed with that control record. 
System Library maintenance may also be performed 
concurrently with System Program maintenance (see 
note 2, columns 23-26 of *MON card). 

The format of a subroutine control record is as 
follows 


Card 
Column Contents Notes 


These characters identify a system 
patch to the System Library, 


The version (v) and modification 


level (mm) are specified in hexa- 
decimal, 

0 Reserved 

blank 

mnnn "nnnn" specifies (in hex) the number 
of deletes and stores to be processed, 

Not used 





All Maintenance 


Define End Record 


All MODIF jobs must end with a card punched as follows. 


Card 
Column Contents Notes 
1-7 //bDEND 
8-80 Not used 


This card terminates MODIF execution and passes 
control to the Supervisor. 





Operating Procedures 
The card deck or paper tape supplied by IBM is to be 
run as a Monitor job. 


When a modification is completed successfully, the 
following messages are printed on the principal printer. 


MODIF EXECUTION OWXX 
MODIF TERMINATION O0YZZ 


where 


WxXX is the old version and modification number, and 
YZZ is the new version and modification number. 
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MODIF Error Messages ERROR# XXXX XXXX 


If an error occurs during MODIF execution, an error Following the printing of the error message, the systen 
message is printed on the principal printer. The will WAIT. All MODIF errors and their recovery pro- 
format of the error message is as follows. cedures are listed in table 6. 


i Table 6. MODIF Error Messages. 


Second Hex Number 
Description Recovery Options* First Hex Number Printed Printed 


Amount of checksum difference. 












Invalid patch control record 


A. Correct error and reread from corrected patch 
(*MON or *SUB) 


control record. (If the error has occurred 
on the first patch control record, restart 
the modification.) 

Terminate modification, CALL EXIT. 










Checksum error on binary 


Rechecksum and reread from preceding patch 
patch data record. 


control record. (if the error has occurred 
on the first patch control record, restart 
the modification.) 

B. Terminate modification, CALL EXIT. 

C. Reread card in error (cards may be out 

of order). 


Number of binary records 
read after patch header 
(including record in error). 













Invalid hex data record, 





Correct error and reread from preceding patch 
control record. 

B. Terminate modification, CALL EXIT. 

Reread card in error. 



















Level of version and modifica- 
tion (from patch control 
record). 


Present version and modification 


level (from DCOM on disk). 


Modification level error in 


Correct error and reread from corrected patch 
system modification update. 


control record. 
Terminate modification, CALL EXIT. 



































Level of version and modifica- 
tion (from patch control 
record), 


Present version and modification 
level (from DCOM on disk). 


New modification level 
lower than current level 
in system modification up- 
date. 


Correct error and reread from corrected patch 
control record. 

B. Terminate modification, CALL EXIT. 

C. Reduce level and continue. 




















Read new patch control record. Number of patches not installed. 


B, Terminate modification, CALL EXIT. 


Monitor control record or 
// DEND card read before 
required number of patches 
read. 






















Address +2 from which error 
branch was executed. 


Contents of Accumulator when 
error was detected. 


Restart MODIF execution. 
Terminate modification, CALL EXIT. 






DCOM configuration indica- 
tors do not agree with SLET 
or, Required system 1/O 

routine missing. 



























XXYY where XX is the number 
of DUP errors detected (see 
DUP error printout) and 

YY is the number of DUP 

control records not processed - 


Number of DUP control 
records specified on *SUB 
patch control record. 


Print error indicators and WAIT. 
Press START to continue. 


DUP control record errors 
(DELETES or STORES). 






















SLET ID not found. Print error indicators and WAIT. 
Press START to read patch data cards with- 


out processing and read new control record. 


SLET ID in question. 
























Print error indicators and WAIT. : 
Press start to read patch data cards without 
processing and read new control record. 


Patch exceeds space allotted 
on disk for this phase. 


High core patch address. High core SLET address. 












Press START to CALL EXIT or, Rerun modification 


// DEND card not found 
with // DEND card. 


(patches completed but 
version and modification 
level in DCOM not updated. 




























Modification level error in 
General temporary fix (see 
note 4, page 64). 


Version and modification 
level (from patch control 
record). 


Present version and modification 
level (from DCOM on disk). 


This error terminates execution. Press Program 
Start Key to CALL EXIT. Any preceding patches 
in this MODIF JOB have been installed, 














Modification level error in 
Restricted temporary fix 
(see note 5, page 64), 











Version and modification 
level (from patch control 
record), 


Present version and modification 
level (from DCOM on disk). 


This error terminates execution. Press Program 
Start Key to CALL EXIT. Any preceding patches 
in this MODIF JOB have been installed. 













System modification update 
mixed with temporary 
fixes, 


This error terminates execution. Press Program 
Start Key to CALL EXIT, Any preceding patches 
in this MODIF JOB have been installed, 





*Set console entry switches as desired for errors 1-7 and press START. 
No switches on - recovery A 
Switch Ojon = - recovery B 
Switch T50n = - recovery C 


MODIF Example 


The purpose of the following example is to change one 
instruction in the 1134/1055 System Subroutine. The 
SLET ID of this subroutine is /0091. 


Address 
(from assembly listing) Change From Change To 
/0023 /0000 /7002 


If the new modification level is 8, the following control 
and data cards must be punched by the user. 


System Program Maintenance Control Record 


12.3.4 5 6 7 B Y 101912 1314.15 16 17 18.19 2021 22 23 24 25 26 27 28 29 30 31 32 33 34 35 3637 
S “2 neem, 


MON, 2080 OO91, OOL1 BH OOGL 0... J. 
Patch Data Record: Hex Patch Format 


[ 2:34 5 6 7 BF 101 12 13.14 15 1617 18 19 2021 22 23 24 25 26 27 28 29:30 31 3233 34 35 3637 


} 
j0023 17004, ade da 





These two cards together with the Monitor control 
ecards shown in Figure 12 will perform the required 
modification. 

At completion of execution, the following messages 
will print on the principal printer. 


MODIF EXECUTION 0207 The execution of 
MODIF has been 
initialized on version 
2 level 7 

MODIF TERMINATION 0208 The patch has been 

installed and the new 


level is 8. 
PAPER TAPE UTILITY (PTUTL) 


This program accepts input from the Keyboard or the 
1134 Paper Tape Reader and provides output on the 
Console Printer and/or the 1055 Paper Tape Punch. 
PTUTL allows changes and/or additions to FORTRAN 
and Assembler language source records as well as 
Monitor control records. 
The calling sequence for PTUTL is: 


1 43 $ 7 89 10 1 2) 1516 17 18 19 20 21 22 23 24 25 26 27 26 29 30 31 92 33 34 35 % 


A ¢ 2 


Operating Procedure 


If paper tape is the principal input, select the appro- 
priate initializing procedure listed below and continue. 
If the Resident Monitor is in core: 
e Place the PTUTL execute tape in the paper tape 


reader. 
e Press PROGRAM START. 


If the Resident Monitor is not in core: 

e Place the cold start paper tape record in the 
paper tape reader. 

e Press IMM STOP, RESET, and PROGRAM LOAD 
on the console. 

e Place the PTUTL execute tape in the paper tape 
reader. 

e Press PROGRAM START. 


The paper tape utility program is loaded into core and 
then comes to a WAIT with /1111 displayed in the Accum- 
ulator. This WAIT allows the operator to ready the 
Console Printer, paper tape reader, and paper tape 
punch. The user should punch a leader of delete codes 
on the paper tape punch. 

At this time, the user can select the desired program 
options by turning on the appropriate console entry 
switches. Figure 14 shows the PTUTL console entry 
switch logic in flowchart form. 


Console Entry 


Switch On Option 

0 Print record after reading 
1 Read paper tape records from 1134 
2 Accept Keyboard input 
3 Punch paper tape records on 1055 

14 WAIT after punching with /3333 in the 

Accumulator3 
15 WAIT after printing with /2222 in the 


Accumulator2 
All switches off CALL EXIT3 


NOTES: 

1. The keyboard input option uses TYPEO; therefore 
all features of that subroutine apply to PTUTL. 

@ The input record cannot exceed 80 characters. 

e Pressing the backspace key cancels the last 
character entered. 

e Pressing the ERASE FIELD key cancels the 
entire record and allows the user to restart. 

e Pressing the EOF key indicates that the record 
is complete. The Keyboard is released and 
the program continues, 

2, Keyboard input will replace the last paper tape 
record read if console entry switch 2 is turned on 
prior to pressing PROGRAM START. 

3. The test for exit is made just before an input 
record is read; therefore, a convenient way to 
branch out of PTUTL is to perform a WAIT after 
punching the last record desired (console entry 
switch 14 on). Turn off all console entry switches 
and press PROGRAM START, A CALL EXIT 
will be executed. 
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Paper Tape Not-Ready WAITs 


Paper tape } Program WAITs | Ready reader if additional tape is to 

reader not } with /3005 in be read, Set the console entry 

ready the Accumulator | switches as desired and press 
PROGRAM START. 


Paper tape } Program WAITs Ready the paper tape punch and 

punch not |with /3004 in the] press PROGRAM START. 

ready Accumulator To repunch the record that was 
being processed when the not-ready 
occurred, set console entry 
switches 1 and 2 off (to prevent 
another record from being read), set 
switches 3 and 14 on (punch a rec- 
ord and WAIT with /3333 in the 
Accumulator), and press PROGRAM 
START, After the record is punched, 
return the console entry switches to 
the original configuration and press 
PROGRAM START. 





Example 
Assume that the following records appear on a tape. 


// JOB 

// *(comments) 

// ASM 

// DUP 

ASM Control Records 
Source Program 


The user now desires to alter the comments record, 
insert a // PAUS record after the comments record, 
and delete the // DUP record. The procedure is as 
follows. 


1. Load and execute PTUTL. The program will 
WAIT with /1111 in the Accumulator. 

2. Load the source tape in the paper tape reader 
and ready the paper tape punch and Console 
Printer. Make a leader of delete codes on the 
punch. 

3. Turn on console entry switches 1, 3, and 14. 

4. Press PROGRAM START. 

5. The // JOB record will be read, reproduced, and 
the program will WAIT with /3333 in the Accumu- 
lator. 
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10. 


es 


12. 


13. 


14. 


15. 


16. 


sy om 


18. 


19. 
20. 


21. 


22. 


23. 
24. 


25. 


Turn on console entry switches 0, 1, 2, 3, 14, 
and 15. 

Press PROGRAM START. 

The comments record in the source tape will be 
read and printed on the Console Printer. The pro- 
gram will WAIT with /2222 in the Accumulator. 
Press PROGRAM START. The Keyboard will be 
selected (PROCEED light on) and the program will 
WAIT with /3333 in the Accumulator. 

Enter the new comments record in the proper format. 
Press the EOF key on the Keyboard. 

The new comments record will be punched on the 
tape, replacing the old record. The program will 
WAIT. 

Turn off console entry switch 1. Press PROGRAM 
START. The Keyboard will be reselected. 

Enter the // PAUS record from the Keyboard and 
press EOF. 

Turn off the console entry switches 0, 2, and 15. 
Turn on switch 1. Leave switches 3 and 14 on. 
Press PROGRAM START. 

The // ASM record will be read and reproduced 
on the punch. The program will WAIT with /3333 
in the Accumulator. 

The next record // DUP, is to be deleted; 
therefore, switches 0, 1, and 15 should be Set on, 
all other console entry switches should be set off. 
Press PROGRAM START. 

The // DUP record will be read and printed but 
not punched. The program will WAIT with /2222 
in the Accumulator. 

Leave the sense switches at the present setting 
and press PROGRAM START. The next record 
on the input tape will be read into the I/O buffer, 
overlaying the // DUP record. 

Turn on console entry switches 1 and 3, all others 
off, 

Press PROGRAM START. 

The remainder of the source tape will be read in 
and reproduced, record for record. 

When the paper tape reader goes not-ready at the 
end of the source tape, the program will again 
WAIT with /3005 in the Accumulator. Set all 
console entry switches off and press PROGRAM 
START. A CALL EXIT will be executed. 
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Figure 14, PTUTL Console Entry Switch Options 
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SYSTEM LIBRARY UTILITY SUBROUTINES 


Also included in the System Library are a group of 
subroutines that perform utility functions for the 
Monitor system. 

The utility subroutines are: 


SYSUP - DCOM Updating Subroutine 

RDREC - Read *ID Record Subroutine 

CALPR - Call-System Print Subroutines 

FSLEN Fetch Phase ID (FSLEN) or Fetch 
System Subroutine (FSYSU) 

FLIPR - LOCAL/SOCAL Overlay Subroutine 


SYSUP can be called by the user. The other utility 
subroutines are for system use only. 


SYSUP (DCOM Update) 


Whenever a core load requires changing disk cartridges 
during the job, SYSUP must be called to update DCOM 
on the master cartridge (logical drive 0) with the IDs 
and DCOM information from all satellite cartridges 
mounted on the system that are specified in the list or 
array in the calling sequence. 

The Assembler language calling sequence for 
SYSUP is: 


Label Operation F 
2 25 v7 30 


Operands & Remarks 
50 55 60 


8 
8-4 
3 
3 
& 


: 


[LAC OM PDA 


ij 
a 


Se TO OT EO SO SS 
nh 
G oe a ae ss Ce cs Oe SO SS GO SO GN SG CO CO 
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where 


a is the ID of the master cartridge on the system, 

b is the ID of the first satellite cartridge on the 
system, 

c is the ID of the second satellite cartridge on the 
system, 

d is the ID of the third satellite cartridge on the 
system, 

e is the ID of the fourth satellite on the system. 


a may be zero, in which case the master cartridge 
is the same as that defined for the previous job. 
The FORTRAN calling sequence for SYSUP is: 


203 4°55 6 7 8 9 10 11 z 1415 16 17 16 19 20 21 22 23 24 25 26 27 28 29 30 31 32°33 34 35 


where 


a is the name of the last item in an array containing 
the IDs of the satellite cartridges on the system. 


The last item in the array may be zero, in which case 
the master cartridge is the same as that defined for the 
previous job. For example: 


CALL SYSUP (A(5) ) 
The array is stored in reverse order 


A(5) DC 
A(4) DC 
A(3) DC 
A(2) DC 
A(1) DC 


Thus A(5) is the entry for logical 0, the master cartridge. 
A is a one-word integer. 


NOTE: The list or array must be no longer than five 
words, It may be shorter. Ifa list or array shorter than 
five words is specified, the Assembler array must be 
terminated with an ID of all zeros (all zeros in the 
first entry will not terminate the array). 

The FORTRAN array must be started with an ID of 
all zeros (all zeros in the last entry will not terminate 
the array). For example, a three-cartridge FORTRAN 
array would be specified as (A(4)) with A(1) having a DC 
of all zeros. 


Printout 


The following error messages may be printed by SYSUP 
(SYSUP error messages are also listed with the Super- 
visor Errors in Appendix A). 


XXXX IS NOT AN AVAILABLE CARTRIDGE ID 
A specified cartridge is not in the system. 


XXXX IS A DUPLICATED SPECIFIED CARTRIDGE ID 


The same ID appears more than once in the list 
or array in the calling sequence. 


XXXX IS A DUPLICATED AVAILABLE CARTRIDGE ID 


Two or more disks (specified in the calling sequence) 
have the same cartridge ID. 


An error printout is followed by termination of 
execution. 


CALPR (Call System Print Subroutine) 


This subroutine calls FSLEN to bring the system print 
subroutines into core storage for the purpose of printing 
one or more lines on the principal printer. This sub- 
routine is intended for system use only. 


RDREC (Read *ID Record) 


This subroutine is called by the Disk Maintenance 
Programs to read the *ID record. The *ID record is 
printed on the principal print device. This subroutine 
is intended for system use only. 


FSLEN (Fetch Phase IDs and Fetch System Subroutine) 


This subroutine has two entry points: FSLEN and 
FSYSU. 


e FSLEN -- Fetch Phase IDs from SLET 


This entry point obtains the requested phase ID 
headers from SLET. 


e FSYSU -- Fetch System Subroutines 


Fetches the requested system subroutine into core 
storage. This subroutine is intended for system use 
only. 


FLIPR (LOCAL/SOCAL Overlay) 


The Monitor system library contains a flipper subroutine 
(FLIPR), which is used to call LOCAL (load-on-call) 

and SOCAL (system-load-on-call) subroutines into core 
storage. FLIPR is used with DISKZ, DISK1, or 

DISKN. 

FLIPR passes the total word count to DISKZ, DISK1, 
or DISKN to fetch the LOCAL. When a LOCAL subrou- 
tine is called, control is passed to the flipper, which 
reads the LOCAL into core storage if it is not already in 
core and transfers control to it. All LOCALs in a given 
core load are executed from the same core storage loca- 
tions; each LOCAL overlays the previous one. FLIPR 
fetches SOCALs in the same manner as LOCALs. 
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The steps required to generate a complete multi-drive 
Monitor system are as follows. 


® Initialize all disk cartridgés using the stand-alone 
program DCIP. 


e Punch an initial load MODE control record and 
system configuration deck (or tape) and insert these 
cards in the System Loader deck. (These records 
are prepared using the stand-alone utility PTUTL 
in the paper tape system). 


@ Use the System Loader to load the Monitor system 
to disk. 


@ Perform a cold start. 


The complete Monitor system is now on-line and 
operational. 

Detailed instructions for initial load and reload of 
the card and paper tape Monitor system are listed below. 
All loading and reloading is performed by the System 
Loader. System Loader error messages are listed in 
Appendix A. 


CARD SYSTEM PRE-LOAD 


The Monitor system for the card user is supplied on a 
disk cartridge and must be dumped to cards before the 
Initial Load procedure can be started. The dump is 
accomplished by loading the Monitor 2 cold start card 
supplied with the cartridge. 


Operating Procedure 


e@ Place the pre-load cartridge on any drive on the 
system and ready the drive 


e@ Set the physical drive number of the drive containing 
the pre-load cartridge in console entry switches 
12-15 


SYSTEM GENERATION AND SYSTEM RELOAD 


Switches 12-15 off, drive 0 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 15, 14 on, drive 3 
Switch 13 on, drive 4 


e Place the cold start card in the reader wired for 
IPL and ready the reader. 


-- If the IPL device is a 1442-6 or 7, place the blank 
cards directly behind the cold start card. 


-- If the IPL device is a 2501 and the system.has a 
1442, place the blank cards in the 1442 but do not 
ready the 1442, Make the 1442 ready when the 
the system WAITs after the cold start program is 
loaded. 


@ With the console Mode switch set to RUN, press 
IMM STOP, RESET, and PROGRAM LOAD 


The format of the pre-load cartridge is such that the 
same cold start card that is used to fetch the Monitor 
System is also used to fetch the disk-to-card dump 
program (UCART). Thus, this dump program resides 
on the disk in the same place as the cold start program, 
During the operation of the dump the lower part of core 
contains the Resident Monitor, and any error condition 
detected by UCART, will trap to $PRET, $PST1, or 
$PST4 with the error indications given in appendix B 
of the IBM 1130 Subroutine Library, Form C26-5929, 
The cold start card is read in and punching begins. If 
the punch is a 1442-5, the first card will be blank. 
Throw the blank card away. If the punch runs out of 
cards or is not-ready as in the latter case listed above, 
the system executes a standard pre-operative WAIT 
at $PRET. Ready the punch unit and press PROGRAM 
START to continue. If a punch or feed error occurs, 
refer to the writeup on 1442 Errors and Operator Pro- 
cedures in the System Library section of this manual. 
The dump of the Monitor system, including RPG, - 
requires approximately 5000 cards, 
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INITIAL LOAD (CARD SYSTEM) 


The user must prepare an initial load mode control card 
and system configuration cards (REQ) and insert these 
cards into the System Loader deck. These System Loader 
control cards must be present before the Monitor system 
can be loaded. An optional CORE card may also be used. 
See Figure 15 for the placement of these cards. The 

card formats are listed below. 


User-Punched System Loader Control Cards 


The following System Loader control cards are punched 
by the user (see Figure 15). 


Load Mode Control Card. The load mode control 
card informs the System Loader whether the opera- 
tion is an initial load or a reload. The load mode 







System Library 


Type 81 Card 





System Programs 


PHID Card 


CORE Card 


System Loader - Part 2 
Columns 73-75 1D: FP2 


User-Punched REQ 
Cards (CORE card 
optional) 





Cold Start(ID:EMN) 






Resident Monitor (ID: EMN) 







User~Punched—p»/ Load Mode Card 
Load Mode 
Control Card 







System Loader - Part 1 
Columns 73-75 ID:DP 1 (with 
7 card Core Image Loader 

ID: DCL) 








Figure 15, IBM System Load 
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control card can also be used to delete the Assemb- 
ler, FORTRAN Compiler, or RPG Compiler from 
the system. The load mode control card is placed 
behind the last card of the first part of the System 
Loader. 

The format of the user-punched load mode control 
card is as follows: 


MODE 
I (initial load) or R (reload) 






Card 
Column 









1-4 
8 




















12 A (do not load Assembler) or blank (load Assembler) 
y 13 F (do not load FORTRAN) or blank (load FORTRAN) 
j 14 R (do not load RPG) or blank (load RPG) 


Notes: 1. If Assembler, FORTRAN or RPG are 
deleted they can only be restored by an initial load. 


Note 2. If any of these programs have been deleted |an F in column 13. 

and phases for the deleted program are present in the 

reload deck, the load mode control card for the re- 

load must reflect the true system status; i.e. , if System Configuration Cards (REQ). The system config- 
FORTRAN is missing from the current system, enter uration cards are user~punched REQ cards that identify 
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the system I/O devices that are a part of the user's 
system. If an REQ card specifies the 1442, columns 
15-20 of that card must contain the model number, as 
indicated on the REQ card format chart. 

The format of the REQ cards required by the System 
Loader are listed below. The user should punch only 
those cards that identify units on the system currently 
being generated. Punch one card for each device. Miss- 
ing or extraneous REQ cards may cause initial load op- 
erations to fail. The REQ cards must be placed between 
the SCON card and the TERM card in the IBM system 
deck. 


NOTES: 

1. Those I/O devices not listed on the following chart 
are initialized as part of the system. REQ cards 
are not required. 

2. The principal printer is defined as the fastest print- 
er entered on an REQ card. 







Card Columns 













Device 15 
1442 Card Read Punch 1442-5 43 ; 
\Card Punch 1442-6 whichever is 
1442-7 } applicable 
Paper Tape Reader and/or 1134 : ; 
Punch Unit ID is 
2501 Card Reader optional 


1132 Printer 
[1403 Printer_ 


*ISS numbers, right justified. Maximum entry number [SS 20. 


3, The principal I/O device is defined as follows: 


Device specified on 


REO Cards Principal 1/O Device 


2501, 1442. PAPER TAPE 
1442, PAPER TAPE 
PAPER TAPE 


2501 Input, 1442 Output 
1442 Input/Output 
Paper Tape Input/Output 





CORE Card (Optional). An optional user-punched control 

card CORE may be placed anywhere between the SCON 

and TERM cards in the IBM system deck. If this card 

is used, the calculated (actual) core size of the system 

is replaced by the core size defined in the CORE card. 
The format of the CORE card is as follows. 


Card Columns 
aa ee eee 


04K 
08K 
16K 
32K 



















User-Defined Core Size 


IBM-Supplied System Loader Control Cards 


The following System Loader control cards are supplied 
with the IBM system (see Figure 15) and must be pres- 
ent in the IBM system deck on any system load. 


SCON and TERM Card. These cards (supplied with the 
card system), together with the user-punched REQ cards, 
make up the system configuration deck. The system con- 
figuration deck must be included in the System Loader for 
any system load or reload. The format of the SCON and 
TERM cards are listed below. 


SCON card, columns 1-4: SCON 
TERM card, columns 1-4: TERM 


Phase Identification Card (PHID). The PHID card(s) 


contain the beginning and ending phase numbers of the 
various programs in the IBM system deck. All num- 
bers in the phase ID field of the PHID card(s) are in 
ascending sequence and in the order in which the system 
decks occur, The Resident Monitor and Cold Start Pro- 
gram have no phase IDs and are included in part 2 of 
the System Loader. The entries in the PHID card(s) 
are loaded into the System Location Equivalence Table 
(SLET) and SLET is then used by the system as an 
internal directory to the Monitor programs. 


A primary PHID card is always necessary in the 
IBM system deck. A secondary PHID card may be 
present in addition to the primary PHID card when more 
than seven pairs of phase ID numbers are necessary. 

If a second PHID card is used its fields are formatted 
as shown for card one. Unused fislds may be blank. 


The format of the primary PHID card is as follows. 


Card 
Columns 











PHID 
Phase IDs of first and last DUP phases 









Phase IDs of first and last FORTRAN Compiler phases 









Phase IDs first and last Assembler phases 








Phase IDs 





first last Supervisor phases 















Phase IDs first and last 





Core Load Builder phases 





Phase IDs of first and last System Device Subroutine 
phases 


Phase IDs of first and last Core Image Loader phases 





1’ if a second PHID card is present 
Vxx (xx is the version number) 

Mxx (xx is the modification number) 
Card identification and sequence number 





The format of the secondary PHID card, if required, 
is as follows. ‘ 


Card Entr 
Columns Y 
1-4 


PHID 


Phase IDs of first and last RPG Compiler phases 


Blank 

Vxx (xx is the version number) 

Mxx (xx is the modification number) 
Card identification and sequence number 
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TYPE 81 Card. During an initial load, the type 81 
card causes the principal print device and the prin- 
cipal I/O device entries to be placed in SLET. The 
Disk Communications Area (DCOM) and Location 
Equivalence Table (LET) are initialized and the 
Reload Table is established during an initial load. 
The IBM System Library is loaded following the 
reading of the type 81 card. The format of the type 
81 card is as follows: 


Column 3: 6 punch 
Column 4: 1 punch 


Operating Procedures 


¢ Initialize a cartridge using DCIP (see Disk 
Cartridge Initialization Program) 


® Prepare the required user-punched control 


records (see User-Punched System Loader 
Control Cards) 


© Remove the Cold Start card, the stand-alone 
utilities, and the sample programs from behind 
the System Library. 


After the disk cartridge has been initialized by 
DCIP and the user-punched System Loader control 
cards inserted in the IBM system deck, the Monitor 
system is ready to load. The complete system, 
ready for loading, is illustrated in Figure 15, 


The steps necessary to perform a system load are 
as follows. 


© Ready the selected disk drive 


© Ready the Console Printer and the principal 
printer 


© Set the physical drive number of the drive 
containing the initialized cartridge in console 
entry switches 12-15. 


Switches 12-15 off, drive 0 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 14,15 on, drive 3 
Switch 13 on, drive 4 
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© With the console Mode switch set to RUN, press 
IMM STOP and RESET. 


* Place the IBM system deck in the hopper of the 
reader wired for initial program load (IPL). 


® Press reader START. If both a 2501 and a 1142 
model 6 or 7 are present, place the 1442 in a not- 
ready status. 


® Press PROGRAM LOAD on the console. 


After the type 81 card has been read, the Auxiliary 
Supervisor calls DUP directly to store the System 
Library. After the last program of the System 
Library has been stored, the Monitor system is on 
disk and can be made operational by a user-initiated 
cold start. 


SYSTEM RELOAD (CARD SYSTEM) 


The Monitor programs are divided into phases so that if 
changes are made within a program, only the affected 
phase needs to be reloaded. As in initial load, the user- 
punched load mode control card and REQ cards are re- 
quired with the System Loader. The only difference is 
that the load mode control card for a reload must have 
an R in column 8. The programs or program phases 
being loaded by the reload procedure must be placed 
directly behind the IBM-supplied phase identification 
(PHID) card. 


RELOAD 


A program or programs specified in the second PHID 
record may be added to a system using the reload func- 
tion. Program additions, as contrasted with phase 
additions, must follow the last system program currently 
on the cartridge, To insure that enough space exists, 
working storage on the cartridge must be equal to or 
larger than the length of the program(s) to be added, 
plus 31 sectors. 

Additional phases for an existing program may be 
added as long as enough space exists in the Cushion 
Area to absorb the increased length of the system 
programs, 

All phases and/or programs to be reloaded and/or 
added, should be in ascending phase ID sequence. Pro- 
gram addition(s) will require a second PHID record 
with the PHID range(s) specified. 


Programs normally at a central location within the 


system program sequence cannot be added. For example, 


if the Assembler has been voided, it cannot be added 
back. 

If a // XEQ MODIF record follows the Type '81! 
record, the reload function will link to the MODIF 
program to perform additional operations. 


When using a 2501 Card Reader, the double-buffering 
procedure in the System Loader requires a blank card 
following the type 81 control card. The message END 
RELOAD will be printed by the Console Printer when the 
reload is completed. 

If the Assembler, FORTRAN Compiler, or RPG 
Compiler were deleted on an initial load or by a DUP 
DEFINE VIOD operation, they cannot be reloaded us 
ing the reload procedure. They must be loaded by an 
initial load. If any phase of a deleted program are 
present in the reload deck, the apprepriate codes 
must be specified in column 12-14 of the reload load 
mode control card. 

A useful option provided by the reload function is 
the ability to reconfigure a system cartridge with 
different I/O devices. Reconfiguration will be nece- 
ssary if a system cartridge is copied from a system 
with a different contiguration. The reload deck listed 
below will perform this function. (To reconfigure 
only, place the Type 81 card directly after the PHID 
cards. ) 


e System Loader deck, part 1, with Core Image Loader 
e Load mode control card (R in column 8) 
e Resident Monitor/cold start deck 
e System Loader deck, part 2 
e System configuration deck: 
SCON card 
REQ cards System reconfigured 
CORE card (optional) \ if desired 
TERM card 
e PHID cards 
» (Revised programs or program phases)* 
» Type 81 control card 
» Blank card 


k All decks must have phase ID numbers within the lim- 
ts of the IDs listed on the PHID cards. 

If phases are to be reloaded the last card of the last 
yhase must be an end-of-program card, (See End-of- 
?rogram (EOP) card, Appendix C), In this case the EOP 


card may have words 1, 2 and 4 through 54 blank, 

During a reload operation, loading terminates with 
the reading of the type 81 card, and the printing of 
END RELOAD, 


Note: Ifthe last job on the cartridge being reloaded 

was in temporary mode, a Cold Start should be per- 

formed prior to the Reload in order to reset the tem- 

porary mode switch and delete temporary items. 
Therefore it is recommended that a Cold Start 

be performed before each SYSTEM RELOAD. 


Operating Procedures 


With the console Mode switch set to RUN, press PRO- 
GRAM STOP on the console. 


« Ready the selected disk drive. 
© Ready the Console Printer. 


e Set the physical drive number of the drive containing 
the cartridge to be reloaded in console entry switches 
12-15. 

Switches 12-15 off, drive 0 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 14, 15 on, drive 3 
Switch 13 on, drive 4 


e Press RESET on the console. 


e Place the reload deck (see listing above) in the reader 
wired for IPL. 


® Press reader START. If both a 2501 and a 1442 mod- 
el 6 or 7 are present, place the 1442 in a not-ready 
status. 


e Press PROGRAM LOAD on the console. 


e Perform a cold start to make the revised Monitor 
system operational. 


System Program Phase Sector Break Cards 
In order to allow the user to load only a portion of a 


Monitor program, the programs are divided into phases, 
each identified by a sector break card. 
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The sector break cards identifying the phase of Phase ID Starting in 
the IBM system programs are listed below. Sector Number Program or Program Phase Name _ Column 73 _ 


break cards (see Appendix C) have a 1 punch in col- ASSEMBLER 
umn 4, The version and modification level are pun- 51 ASM INITIALIZATION PHASE MOL 
ched in the cards starting at column 67 (VxMxx). 52 ASM CARD CONVERSION PHASE Mo2 
53 ASM DSF OUTPUT PHASE MO3 
se ‘ieee 54 ASM INTERMEDIATE INPUT PHASE M04 
aoe Program or Program Phase Name pees 2 pO ED STS CEMENT Eiibek es 
— oe 56 ASM ASSEMBLY ERROR PHASE M06 
XX RES SKELETON SUPY, COMMA, Part of Sys- 57 ASM CONTROL CARDS 1 M07 
DISKZ, COLD START PROGRAM _ tem Loader 58 ASM CONTROL CARDS 2 MO8 
XX SYS LDR - PHASE 2 - OVERLAY 0 FP2 59 ASM DUMMY PHASE (SYST SYMBOL TBL) MOo9 
XX SYS LDR - PHASE 2 - OVERLAY 1 FP2 SA ASM SYMBOL TABLE OPTIONS PHASE M10 
XX SYS LDR - PHASE 2 - OVERLAY 2 FP2 SB ASM EXIT PHASE M11 
XX _SYS LDR - PHASE 2 ~- OVERLAY 3 FP2 5C ASM PROG HEADER MNEMONICS PHASE Mi2 
DUP 5D ASM FILE STATEMENT PHASE M13 
O1 DUP COMMON SUBROUTINES, CCAT jot 5E ASM COMMON SUBROUTINES, ASCOM M14 
02 DUP CTRL RECORD PROCESSOR jo2 SF ASM PROG CONTROL MNEMONICS PHASE ML5 
03 DUP STORE PHASE Jo3 60 ASM IMPERATIVE STATEMENTS PHASE M16 
04 DUP *FILES, *LOCAL, *NOCAL PHASE Jo4 61 ASM DECML EFLC PROCESSING PHASE M17 
05 DUP DUMP PHASE jos 62 ASM DECIMAL CONVERSION PHASE M18 
06 DUP DUMP LET/FLET PHASE Jo6 63 ASM PROG LINKING PHASE M19 
07 DUP DELETE PHASE JO7 64 ASM DMES PROCESSING PHASE M20 
08 DUP DEFINE PHASE Jos 65 ASM PUNCH CONVERSION PHASE M21 
09 DUP EXIT PHASE Joo 66 ASM INTERMEDIATE DISK OUTPUT M22 
OA DUP CARD I/O INTERFACE jio 67 ASM SYMBOL TABLE OVERFLOW M23 
OB DUP KEYBOARD INPUT INTERFACE jil 68 ASM G2250 PHi M24 
oc DUP PAPER TAPE I/O INTERFACE ji2 SUPERVISOR 
OD DUP UPCOR PHASE SAVED BY DEXIT DURING 6E SUP PHASE1 - MONITOR CONTROL ; NO1 
STORECI ju7 RECORD ANALYZER 
OE DUP PRINCIPAL INPUT WITH KEYBOARD jl7 6F SUP PHASE 2 - JOB CONTROL RECORD NO1 
OF DUP PRINCIPAL W/O KEYBOARD It PROCESSOR 
10 DUP PAPER TAPE I/O jl7 70 SUP PHASE 3 ~ DELETE TEMPORARILY NO1 
11 DUP STORE Cl ji7 STORED PROGRAM LET 
12 DUP MODIF DUMMY PHASE ji7 71 SUP PHASE 4 - XIO CONTROL RECORD NOt 
FORTRAN Compiler PROCESSOR 
iF FOR INPUT PHASE KOt 72 SUP PHASE 5 - SUPERVISOR CONTROL NOt 
20 FOR CLASSIFIER PHASE KO2 RECORDS PROCESSOR 
21 FOR CHECK ORDER/STMNT NO. PHASE KO3 73 SYSTEM DUMP-CORE-TO-PRINTER NO2 
22 FOR COMMON SUBR OR FUNCTION PHASE K04 74 AUXILIARY SUPERVISOR NO3 
23 FOR DIMENSION, REAL, INTEGER. KOS SUP PHASE 5 - G2250 PROCESSING 
24 FOR REAL CONSTANT PHASE K06 CORE LOAD BUILDER 
25 FOR DEFINE FILE, CALL LINK EXIT KO7 78 CORE LOAD BUILDER, PHASE 0/1 OCB 
26 FOR VARIABLE, STMNT FUNC PHASE KO8 79 CORE LOAD BUILDER, PHASE 2 OCB 
27 FOR DATA STATEMENT PHASE KO9 7A CORE LOAD BUILDER, PHASE 3 OCB 
28 FOR FORMAT STATEMENT PHASE K10 7B CORE LOAD BUILDER, PHASE 4 OCB 
29 FOR SUBTRACT DECOMPOSITION PHASE Kit rie CORE LOAD BUILDER, PHASE 5 OCB 
2A FOR ASCAN I PHASE K12 7D CORE LOAD BUILDER, PHASE 6 OCB 
2B FOR ASCAN II PHASE K13 7E CORE LOAD BUILDER, PHASE 7 OCB 
2c FOR DO, CONTINUE, ETC. PHASE K14 7F CORE LOAD BUILDER, PHASE 8 OCB 
2D FOR SUBSCRIPT OPTIMIZE PHASE K15 80 CORE LOAD BUILDER, PHASE 9 OCB 
2E FOR SCAN PHASE ki6 81 CORE LOAD BUILDER, PHASE 10 OCB 
2F FOR EXPANDER I PHASE K17 82 CORE LOAD BUILDER, PHASE 11 OCB 
30 FOR EXPANDER II PHASE K18 83 CORE LOAD BUILDER, PHASE 12 OCB 
31 FOR DATA ALLOCATION PHASE K19 84 CORE LOAD BUILDER, PHASE 13 OCB 
32 FOR COMPILATION ERROR PHASE K20 SYSTEM DEVICE SUBROUTINES, DISK I/O 
33 FOR STATEMENT ALLOCATION PHASE K21 8C SYS 1403 PMN 
34 FOR LIST STATEMENT ALLOCATION K22 8D SYS 1132 PMN 
35 FOR LIST SYMBOL TABLE PHASE K23 8E SYS CONSOLE PRINTER PMN 
36 FOR LIST CONSTANTS PHASE K24 8F SYS 2501 PMN 
37 FOR OUTPUT I PHASE K25 90 SYS 1442 PMN 
38 FOR OUTPUT II PHASE K26 91 SYS 1134 PMN 
839 FOR RECOVERY (EXIT) PHASE K27 92 SYS KEYBOARD PMN 
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Phase 
Number 


93 
94 
95 
96 
97 
98 


AO 
Al 


SRARAE 


BABS 


BE 
BF 
co 
Ci 
C2 
C3 
C4 
C5 
C6 
C7 
C8 
cg 
CA 
CB 
cc 


Program or Program Phase Name 


SYS 2501 /1442 CONVERSION 
SYS 1134 CONVERSION 

SYS KEYBOARD CONVERSION 
DISKZ 

DISK1 

DISKN 

CORE IMAGE LOADER 

CORE IMAGE LOADER, PHASE 1 
CORE IMAGE LOADER, PHASE 2 
RPG Compiler 

RESIDENT 

ENTER FILES 

ENTER INPUT 

ENTER CALCULATION 

ENTER OUTPUT’ 

ASSIGN INDICATORS 

ASSIGN FIELD NAMES 

ASSIGN LITERALS 

EXTENDED FILE AND INPUT DIAGNOSTIC 
EXTENDED CALCULATION AND OUTPUT 
DIAGNOSTIC 

DIAGNOSTIC MESSAGE 1 
DIAGNOSTIC MESSAGE 2 
DIAGNOSTIC MESSAGE 3 
ASSEMBLE 1 1/0 

ASSEMBLE 2 I/O 

ASSEMBLE 3 I/O 

ASSEMBLE 4 1/0 

ASSEMBLE TABLES 

ASSEMBLE CHAIN AND RAF 
ASSEMBLE INPUT FIELDS 
ASSEMBLE CONTROL LEVELS 
ASSEMBLE MULTI FILE LOGIC 
ASSEMBLE GET ROUTINES 
ASSEMBLE CALCULATIONS 1 
ASSEMBLE CALCULATIONS 2 
ASSEMBLE OUTPUT FIELDS 
ASSEMBLE PUT ROUTINES 
ASSEMBLE FIXED DRIVER 
TERMINATE COMPILATION 


ID Starting in 
Column 72 


PMN 
PMN 
PMN 
PMN 
PMN 
PMN 


PMN 
PMN 


PRO 
PRI 
PR2 
PR3 
PR4 
PRS 
PR6 
PR7 
PR8 
PRO 


PRA 
PRB 
PRC 
PRD 
PRE 
PRF 
PRG 
PRH 
PRI 
PRJ 
PRK 
PRL 
PRM 
PRN 
PRO 
PRP 
PRQ 
PRR 
PRS 
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INITIAL LOAD (PAPER TAPE SYSTEM) 


The tapes constituting the complete Paper Tape Monitor 
System, including the user-punched control record tapes 
are!listed below. 


Tape 
Number Description 
System Loader, Part 1 
= Load Mode Control Record (User-punched) 
2 System Loader, Part 2, with Resident 
Monitor and Cold Start 
ad System Configuration Records (User-punched) 
3 Phase Id. (PHID) Control Record 
4 Disk Utility Program 
5 FORTRAN Compiler 
6 Assembler 
7 Supervisor, Core Load Builder, System I/O 
Subroutines, Core Image Loader 
8 End of System Tapes Control Record 
(Type 81 record) 
9 Standard LIBFs and CALLs 
10 Extended Precision LIBFs and CALLS 
11 Common LIBFs and CALLs 
12 ILS, ISS, Conversion and Utility Subroutines 
13 Plotter Subroutines 
14 SCA Subroutines 
15 Cold Start Paper Tape Record 
16 DCIP Disk Cartridge Initialization Program 
17 PTUTL Paper Tape Utility Program 
18 Paper Tape Reproducing Program 
19 1132/1403 Printer Core Dump from /01E0 
20 Console Printer Core Dump 


Tape 15 is used to initialize the Monitor system after 
itis loaded. Tapes 16-20 are stand-alone utilities and 
are not loaded as part of the Monitor System; however, 
PTUTL and DCIP are used during the loading process. 
Tapes 21 and 22 are the Monitor system sample programs 


NOTE: If the FORTRAN Compiler and/or the Assembler 
are not be be loaded during an initial load, the corres- 
sponding tapes (5 and/or 6) need not be read. If the 
FORTRAN Compiler and/or the Assembler are not 
loaded, they cannot be loaded using the reload proce- 
dure. They must be loaded by an initial load. 


System Loader Control Records 


With the exception of the Load Mode Control Record 
and the System Configuration Records, all of the paper 
tape control records needed to load the Paper Tape 
Monitor System to disk storage are supplied to the 
user by IBM. These control records have the same 
functions as the corresponding IBM-supplied and user- 


punched control cards (see Initial Load (Card System) ). 


The Load Mode Control record and System Configuration 
records must be prepared by the user. If these tapes are 
not prepared correctly, the System Loader will print an 
error message during system load (see Appendix A), A 
user-punched CORE record is optional. 


Preparation of Load Mode and 
System Configuration Control Tapes 


Paper tape control records must be punched in PTTC/8 
(Perforated Tape Transmission Code). The formats 
are the same as the previously-described card formats. 
Paper tape control records must be separated by one NL 
(new line) control character. A control record that im- 
mediately follows paper tape data not followed by an NL 
code must be preceded by one NL code. Delete codes 
may precede or follow this NL code. 


To initially generate a system cartridge the necessary 
control records can be punched using a stand-alone paper 
tape utility program (PTUTL). 


To load the PTUTL program tape, perform the follow- 
ing steps: 


e Place the PTUTL tape in the Paper Tape Reader, 
positioning the tape so that one of the delete codes 
beyond the program ID in the tape leader is under 
the read starwheels. 


e With the console Mode switch set to RUN, press IMM 
STOP, RESET, and PROGRAM LOAD. 


e PTUTL is read in and the program WAITs with /1111 
in the Accumulator. 

e Set console entry switches 2 and 3 on. Functions 

requested by these switches are: 


Switch 2-accept Keyboard input 
Switch 3-punch records on the 1055 Paper Tape Punch 


NOTE: Complete operating procedures for PTUTL 
are contained in the writeup for the System Library 
version of the Paper Tape Utility Program (see Paper 
Tape Utility (PTUTL). 


e Ready the Paper Tape Punch. Be sure to punch a 
leader of delete codes. 


e@ Use the Keyboard to prepare the user-punched System 
Loader control records. 
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Paper Tape Load Mode Record 


Steps in preparation are: 


Write MODE using Keyboard input. 

Space 3 times. 

Write I or R for initial load or reload operation. 
Space 3 times. 


If the Assembler is not to be loaded, write A; 
otherwise space 1. 


If the FORTRAN Compiler is not to be loaded, 
write F; otherwise space 1. 


Press EOF on the Keyboard if no mistakes were 
made, otherwise press ERASE FIELD and repeat 
the above procedure. 


Create a trailer (and new leader) of delete codes on 
the paper tape punch. 


Paper Tape System Configuration Tape 


Steps in preparation are: 
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Write SCON using keyboard input. 

Press EOF to end the SCON record. 

Write REQ 

Space 6 (or 5 in cases of a 2 digit ISS number) 


Write the ISS number for an I/O device to be con- 
figured into the system (see System Configuration 
Cards (REQ) for the required ISS numbers). 


Press EOF. Repeat the preceding three steps until 
all necessary REQ records have been punched. 


A CORE record may be added if desired. Its format 
is identical to the card system description. 


Write TERM 


Press EOF to end the TERM record and Configuration 
tape. 


Create a trailer of delete codes on the Paper Tape 
Punch. 


Operating Procedure 


Initialize a cartridge using DCIP (see Disk Cartridge 
Initialization Program) 


Prepare the required user-punched control records 
(see Preparation of Load Mode and System Configura- 


tion Control Tapes) 


After the disk cartridge has been initialized by DCIP and 
the user-punched System Loader control record tapes 
generated, the Monitor system is ready to load. 


The steps necessary to perform a system load are as 


follows. 

e@ Ready the selected disk drive 

@ Ready the Console Printer and principal printer 

e Set the physical drive number of the drive containing 
the initialized cartridge in console entry switches 
12-15. 

Switches 12-15 off, drive 0 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 14, 15 on, drive 3 
Switch 13 on, drive 4 

e Place the System Loader Part 1 (Tape 1) in the Paper 
Tape Reader. 

When loading tapes, position any of the delete 
codes following the program ID in the tape leader 
under the read starwheels. 

e With the console Mode switch set to RUN, press IMM 
STOP, RESET, and PROGRAM LOAD 

Tape 1 is read in and the system WAITs at $PST4 
or $PRET. 

@ Place the user-punched Load Mode control record 
tape in the reader and press PROGRAM START. 

This tape is read in and the system again waits 
at $PST4 or $PRET. 

e Place the System Loader Part 2 (Tape 2) in the 
reader and press PROGRAM START. The system 
will WAIT after loading. 

e Place the user-punched System Configuration Tape 
in the reader and press PROGRAM START. The 
system will WAIT. 

e Load tapes 3 through 14 as required using the same 


procedure. 


NOTE: If the FORTRAN Compiler and/or Assem- 
bler are to be deleted, tapes 5 and/or 6 need not 
be loaded. Load only those System Library Tapes 
(9 through 14) that are required for your system. 


After the last required System Library Tape has 
been loaded, the Monitor system is on disk and can 
be made operational by a user-initiated cold start. 


SYSTEM RELOAD (PAPER TAPE SYSTEM) 


During a reload of system programs or a system 
reconfiguration, all System Loader Control record 
tapes must be used. A typical paper tape reload 
would include: 


Tape 1 
User-punched Load Mode Control record 
(R for reload) 


Tape 2 
User-punched System Configuration tape (re- 
vised if system is being reconfigured) 


Tape 3 
(Revised programs or program phases)* 


Tape 8 


* All programs must have phase ID numbers with- 
in the limits of the IDs listed on the PHID tape. 


If the Assembler or FORTRAN Compiler were 
deleted on initial load or deleted by a DUP DEFINE 
VOID operation, they cannot be reloaded using the 
reload procedure. They must be loaded by an 
initial load. 


For further information regarding reload, see 


System Reload (Card System). 


NOTE: The Paper Tape System Loader does not 
link to MODIF as the Card System Loader does. 
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1130 DISK DATA FILE CONVERSION PROGRAM. 
(DFCNV) 


DFCNV converts 1130 FORTRAN and/or Commer- 
cial Subroutine Package (1130-SE-25X) disk data 
files to disk files acceptable to 1130 RPG. FOR- 
TRAN disk files created using logical unit number 
10 cannot be converted by DFCNV. Converted 
files may be processed sequentially or randomly 
but not as ISAM files. The program operates in a 
minimum 8K core DM2 system and uses DISK1 and 
the system device subroutines for the principal 
input device and the principal printer. 

The program accepts all FORTRAN and Com- 
mercial Subroutine Package (CSP) disk data formats 
and two-word integers for conversion to acceptable 
RPG disk data format. 

Prior to executing DFCNV, a DUP STOREDATA 
operation must be performed to reserve an output 
file in the User/Fixed Area and to enter its file 
name in LET/FLET. 

Program input may be a disk file created by 
FORTRAN or CSP with or without two-word inte- 
gers or the corresponding cards produced by a 
DUP DUMPDATA operation. The output file may 
be defined on the same disk cartridge as the input 
file or on a cartridge residing on another drive. 
DFCNV converts one input file to one output file; 
subsequent program executions must be performed 
to convert more than one file. The program can 
operate in a stacked job environment. The calling 
sequence is 


Col. 1 4 8 19 
// XEQ DFCNV 1 


Three types of control cards are required by the 
conversion program. Each control card is printed 
on the principal printer as itis read. Diagnostic 
messages are printed as errors are detected on the 
card being processed. All diagnostics except the 
warning messages cause program termination. If 
any error is detected on the File Description card, 
program termination is immediate; all other errors 
are diagnosed before program termination. Follow- 
ing successful processing of the control cards, file 
conversion takes place and the following message 

is printed. 


DISK DATA FILE CONVERSION COMPLETED 


NOTE: The Disk File protection delimiters $F PAD- 
-$FPA D+ of COMMA are modified during the conver- 
sion portion of DFCNV, These modified COMMA 
words must be restored prior to further processing 

if unforseen problems (accidential immediate stop) 
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cause abnormal termination of DFCNV, These words 
are restored by DFCNV under normal program ter- 
mination following successful conversion, 


The first required control card is the File Descrip- 
tion card which must immediately follow the //XEQ 
DECNV monitor control card. Only one File Des- 
cription card is allowed by the program and it con- 
tains the following information: 


Col, Description 


1-5 File name of file whose data is to be conver- 
ted (must be left-justified). This fieldis 
AEOE EM if card input is specified in column 
31. 

File name of file where the RPG data is to be 
placed (must be left-justified). 1,3 

Number of records contained in the file (1- 
32767), 2 

Record size of the input file in words (1-320) 
Record size of the RPG file in characters 
(1-640), 2 

An indication of standard (S) or extended (E) 
precision, Any character other than S or E 
in this column is invalid. 

An indication that one-word integers are used 
(1). This column must be blank if one word 
integers are not used. 

An indication that the input file is a punched 
card deck (C). This column must be blank 

if disk file input is used. 

An indication (W) that an object time warning 
message is to be given if a real number is 
out of range (see note under R-Field Type) 
upon conversion. This column must be blank 
if the warning option is not used. 

The character D, identifying the card as a 
File Description card. 


7-11 


13217 
19-21 2 
23-25 


27 
29 
31 


33 


72 


14 file name is a symbol and therefore must con- 
form to the rules for symbols as stated in IBM 1130 


Assembler Language, Form C26-5927. 


2This field must be right-justified with leading 
zeroes or blanks. 

The RPG file name cannot contain any special 
characters, although the input file name may contain 
the character $. No provision has been made in 
DFCNV to check the RPG file name for $. 

Both the input and RPGfile sizes are calculated 
from the information given on the File Description 
card and are checked against their corresponding 
LET/FLET entries for proper size. The following 


equations are used to calculate the file sizes. 
Input file size in sectors = number of records/ 
(320/input record size in words). 
| Output file size in sectors=number of records/(num- 
ber of records that can be contained in each sector). 
Output record size in words=number of records+1/ 


(number of records that can be contained in each sector). 


Note 1. If the above formulae produce answers with 
fractional parts, the file and record size are obtained 
by rounding off to the next higher whole number. 
Note. 2. The number of records that can be contained 
in each sector (the denominators of the first two for- 
mulae)=820/(record size in words). ‘The remainder, 
if any must be ignored. 320 is the number of words 
per sector. 

The second required control card(s), the Field 
Specification card, describes the data to be conver- 
ted. DFCNV allows selective field conversion (X- 
field type) and rearrangement of data (m term of 
field types) within the converted field. It is the 
user’s responsibility to ensure that data rearrange- 
ment and field expansion do not cause data overlay 
in the converted record. As many complete field 
descriptions may be used on each Field Specifica- 
tion card as can be placed in columns 1 through 71. 
Column 72 of each Field Specification card must 
contain an S. Field descriptions must be placed on 
the card(s) in the same order as the fields appear on 
the input record and must be separated by commas 
(e.g., FS1, FS2, .. ). No embedded blanks within 
specifications or intervening blanks between specifi- 
cations are permitted. 

An optional card containing the 40 character trans- 
lation table for CSP A3 format and the character A in 
column 72 must be included in the control cards if any 
F-type conversions are specified on the Field Speci- 
fication card(s), This conversion table must corresp- 
ond to the original table used to convert to CSP A3 
format, Only one table is allowed per file, if more 
than one table is included in the control cards, tables 
subsequent to the first are ignored, 

The third required card is the end-of-file record 
(/*card). All other DFCNV control cards must 
precede the /* card; if any card other than a DFCNV 
control card precedes the /* card, a warning mes- 
sage is printed and the next card is read. 

The following is a description of each field type 
supported by the program. In each of these speci- 
fication descriptions the column and field length 
indicators may vary from 1 to 8 digits in length; all 
other numeric indicators must be one digit in length. 


I~Field_ Type 


This field type describes FORTRAN integer conver- 
sion; input is an integer field. The specification is 


m-Iw. t(P) 

m is the column of the RPG record in 
which the converted field begins 

(1 through 640), 

I identifies the field type, 

is the field length of the converted 
field (maximum of 14), 

t is the number of decimal positions 
reserved in the RPG field (maximum 
of 9), 

is optional and is present only if the 
RPG field is to be packed. 


Note: Since the FORTRAN integer field is re- 


garded as a whole number with no decimal places, up 
to five positions to the left of the decimal point should 


be reserved in the converted field to hold the largest 
possible integer value. Alignment is at the decimal 
point; if five positions are not reserved, high order 
truncation occurs (see Diagnostic Capabilities). 


where 


2 


(P) 


J-Field Type 


This field type describes two-word integer conversion 


sion; input is a two-wordinteger. The specifica- 
tion is 
m-Jw. t(P) 
where m_ is the column of the RPG record in 
which the converted field begins (1 
through 640), 
J identifies the field type, 
wis the field length of the converted field 
(maximum of 14), 
t is the number of decimal positions re- 
served in the RPG field (maximum of 9), 
(P) is optional and is present only if the 
RPG field is to be packed. 
Note: Since a two word integer is regarded as a 


whole number with no decimal places, up to ten 
positions to the left of the decimal point should be 
reserved in the converted field to hold the largest 
possible integer value. Alignment is at the decimal 
point; if ten positions are not reserved, high order 
truncation occurs (see Diagnostic Capabilities). If 

a file contains two-word integers, standard precision 
must be specified on the File Description card. If 
extended precision is specified, any J-field type spe- 
cification is invalid. 


R-Field Type 


This field type describes FORTRAN real variable 
conversion. The specification is 


m-Rw. t(P) 
where m_ is the column of the RPG record in 
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which the converted field begins (1 
through 640), 

R__ identifies the field type, 

w is the field length of the converted field 
(maximum of 14), 

t is the number of decimal positions re- 
served in the RPG field (maximum ot y), 

(P) is optional and is present only if the 
RPG field is to be packed. 


Note: If the real number of the input field is too 
samll to yield any significant difits in the RPG field 
the RPG field is set to zeroes. If the real number is 
too large to yield any significant digits in the RPG 
field, the RPG field is set to nines, (See Diagnostic 
Capabilities). 


B-Field Type 


This field type describes FORTRAN A-conversion 
for integer data and CPS Al and A2 conversion. The 
specification is 


m-Bw.n 
where m is the column of the RPG record in 
which the converted field begins (1 
through 640), 
B identifies the field type, 


Ww is the number of characters in the 
field (maximum of 255), 
n is the number of characters in each 


unit of the input field (n=1 or 2). 


Note: If CSP Al or A2 format is converted, one 
word integers must be specified on the File Desc- 
ription card; however, no diagnostic check is made 
for this condition. 


C-Field Type 
This field type describes FORTRAN A-conversion 
for real data. The specification is 


m-Cw.n 
where m is the column of the RPG record in 
which the converted field begins (1 
through 640), 
C identifies the field type, 


w is the number of characters in the 
field (maximum of 255), 
n is the number of characters in each 


unit (2 or 3 words) of the:input field. 
For standard precision, n may range 
from 1 through 4; for extended pre- 
cision, from 1 through 6. 


D-Field Type 


This field type describes CSP Di conversion, The 
specification is 
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m-D1 
where m 


yJ=lg-k(P) 
is the column of the RPG record in 
which the converted field begins (1 
through 640), 
D identifies the field type, 
1, ~~ +is the length of the CSP field (maxi- 
mum of 255), 
jis the number of decimal positions in 
the CSP field, (Maximum of 9), 
1, is the length of the RPG field (maximum 
of 14), 
k is the number of decimal positions in 
the RPG field (maximum of 9), 
(P) is optional and is present only if the 
RPG field is to be packed. 
Note: Alignment is at the decimal point. If, for 
example, 1,=l9 and k> j, then k-j high order posi- 
tions of the CSP field are truncated in the RPG field 
(see Diagnostic Capabilities). 


E-Field Type 


This field type describes CSP D4 conversion. The 
specification is 
m-E1,.j=l9.k(P) 


is the column of the RPG record in 
which the converted field begins (1 
through 640), 
E identifies the field type, 
1, is the length of the CSP field (maximum 
of 255), 
jis the number of decimal positions in 
the CSP field, (Maximum of 9), 
lg is the length of the RPG field (maximum 
of 14), 
k is the number of decimal positions in 
the RPG field (maximum of 9), 
(P) is optional and is present only if the 
RPG field is to be packed, 
Note: For E-field type conversion, alignment is 
also performed at the decimal point; high order 
truncation is possible (see Diagnostic Capabilites). 


F-Field Type 


This field type describes CSP A3 conversion. It 
requires a 40 character translation table. The spe- 
cification is 


where m 


m-Fw 


is the column of the RPG record in 
which the converted field begins (1 
through 640). 

F identifies the field type, 

w is the number of characters in the field 
(not to exceed output record size in 


where m 


characters). 


X-Field_ Type 


This field type allows fields on the input record to 
be bypassed. The specification is 


Xw 


where x identifies the field type, 
w is the number of words to be bypas- 
sed (not to exceed input record size). 


Repeat Specification Option 


It is possible to specify sequentially repeated identi- 
cal fields using only one field type specification for 
any field type except the X-field type. The repeat 
option is implemented by immediately following the 
specification to be repeated with the character R 
and the total number of identical fields. The repea- 
ted field begins in the first vacant output column 
following the previous field (i.e., no skipping is 
allowed within a repeated specification). 


Example: The following field specification describes 
three integer fields the first of which be- 
gins in column 15 of the RPG record, each 
of which is packed and 5 characters in 
length with 2 decimal places, 


15-15. 2(P)R3 


The three resulting output fields are pla- 
ced starting in the eight word of the record 
as follows: 


Word: 8 9 10 11 12 
Content: XXXO OFYY YOOF ZZZO OF40 


where XXX, YYY and ZZZ represent the three in- 


teger fields. 


Diagnostic Capabilities 


All DFCNV error messages and their identifying 
numbers (listed below) are printed on the principal 
printer. All diagnostics are printed before data 
conversion begins, Any diagnostic except warning 
messages (indicated below) causes program termina- 
tion. 


INVALID DESCRIP- . Numeric field at card column XX outside 

TION CARD FIELD 1) allowable field range. 

COL. XX 2. Unrecognizable character in field at 
card column XX. 


) . LET/FLET entry not found for file named 
1)0n File Description card. 
2. File name given on File Description card 
invalid. 
Y=I, input file error 
=O, output file error. 


FILE NAME NOT 
IN LET/FLET-Y 


FILE SIZE INVALID ) File size calculated from File Description 
-Y data exceeds actual file size. 


INVALID FIELD 1. Numeric field of specification at card 
SPECIFICATION column XX outside allowable field range. 
SYNTAX-COL. XX} 2. Unrecognizable character in field of 
specification at card column XX. 
3) 3, Embedded or intervening blanks on Field 
Specification card, 
4, J-field type specification detected at 
card column XX when extended precision 
was specified 


CSP A3 TABLE 
MISSING 


No A (col 72) card precedes / * card when 
F-field specified. 
2 
INVALID CARD ) 1. 
SEQUENCE 


Unrecognizable card precedes / card 
{column 72 not D, S, or A). 
1) 2. Multiple File Description cards read . 
1) 3. File Description card out of order. 
4, No Field Specification card precedes / 
card. 


2) High order truncation occurs in output field 
at column XXX, 


TRUNCATION 
OCCURS AT 
COL. XXX 


1) Card input is specified when principal input 
device is console keyboard. 


CARD INPUT 
INVALID 


OUTPUT RECORD 
LENGTH INVALID 


FIELD OUT OF 
RANGE AT COL. 


Sum of individual field lengths exceeds 
specified record length for output. 


2) RPG real number field starting at column 
XXX has been set to zeroes or nines in 





XXX OF RECORD record YYYYY, 
YYYYY 

1) Program termination immediate. 

2) Warning only, 

3) No column indication given. 
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The Supervisor initially achieves control over the 1130 
Monitor System through the user-initiated Cold Start 
procedure. The Cold Start procedure begins with the 
IPL (Initial Program Load) of the Cold Start record, 
which causes the Cold Start program to be read into 
core storage from the system cartridge and control to 
be transferred to it. 

The Cold Start program, in turn, loads the Resident 
Monitor into its location in lower core storage. The 
Cold Start procedure ends when control is given to the 
job initialization program in the Supervisor. 


NOTE: Do not perform a cold start with an uninitialized 
cartridge on line. 


Cold Start Procedure 
To perform a cold start: 
e@ Ready the principal print device. 


e Set the physical drive number of the drive containing 
the system cartridge in console entry switches 12-15. 
Switches 12-15 off, drive 0 

e Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 15, 14 on, drive 3 
Switch 13 on, drive 4 


@ Ready the selected disk drive. 
e Press IMM STOP and RESET on the console. 
e@ Ready the Console Printer. 


e Place the cold start record in the reader wired for 
IPL (Tape 15, paper tape system). 


e Press reader START. If both a 2501 and 1442 model 
6 or 7 are present, place the 1442 in a not-ready 
status. 


e Press PROGRAM LOAD on the console. 


COLD START (CARD AND PAPER TAPE SYSTEM) 


When the Cold Start record is read, a dummy // JOB 
record is printed on the principal printer and the 
Supervisor prints cartridge status information as follows. 


LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 


XXXX XXXX  XXXX £XXXX 


where 


LOG DRIVE is always zero 


CART SPEC is the cartridge ID written on the 
cartridge by DCIP. 


CART AVAIL is the same as CART SPEC. 


PHY DRIVE is the physical drive number selected 
in the console entry switches. This physical drive 
is now logical zero, 


The Monitor system is now operational and is ready 
to receive the first JOB record from the reader. If an 
attempt is made to cold start a non-system cartridge, 
an error message -- THIS IS A NON-SYSTEM CART- 
RIDGE, -- is printed on the Console Printer, 


The table below lists the error stops contained in 
the Cold Start Loader (i.e., card or paper tape). 


-Invalid disk drive number 
in Console Entry Switches 
-Indicated disk drive not 

ready 















-Disk read error 
-Waiting for interrupt from 
seek operation 






-Waiting for interrupt from 
reading sector @iDAD 
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These utility programs -- each self-loading and complete 
with subroutines ~-- are separate from the System Library 
and enable the user to perform operations without Mon- 
itor system control. The first three programs are 
available in card and paper tape, the last two in paper 
tape only. The utility programs are: 


e Console Printer Core Dump 

e Printer Core Dump 

e Disk Cartridge Initialization Program (DCIP) 
e Paper Tape Utility (PTUTL) 


e Paper Tape Reproducing 


CONSOLE PRINTER CORE DUMP 


This program aids the user in debugging programs by 
dumping selected portions of core on the Console Printer. 


Format 


Each core location is dumped as a four-digit hexadecimal 
word with a space separating each word. The first word 
dumped is the starting address of the dump (as specified 
in the console entry switches). 


Operating Procedures 


e With the console Mode switch set to RUN, press IMM 
STOP and RESET on the console. 


e Flace the Console Printer Core Dump program in the 
reader wired for IPL and ready the reader (if the 
system configuration is 2501, 1442-6 or -7, make the 
1442 not-ready). 


e Set the margin on the Console Printer. To print the 
same format on each line set the number of print 


positions to a multiple of 5. 


e Set the starting address (in hexadecimal) in the con- 
sole entry switches. 


e Press PROGRAM LOAD. 


Dumping continues until IMM STOP is pressed. To con- 
tinue, press PROGRAM START. 


STAND-ALONE UTILITY PROGRAMS 


PRINTER CORE DUMP 


This program dumps core in hexadecimal format on 
either the 1403 Printer or the 1132 Printer, whichever 
is in a ready status. If both are ready, the dump will be 
on the 1408. 


NOTE: "Not present” is equivalent to "not ready". 


Format 


Dumping starts at location $ZEND. Each line contains 

a four-digit hexadecimal address, followed by 16 four- 
digit hexadecimal words. A space separates the address 
and each word in the printed line. An additional space is 
inserted between each group of four words. 

To decrease dump time, the program does not print 
consecutive duplicate lines. Before printing a line, it 
compares the next 16 words with the 16 words just 
printed. If they are identical, the program goes on to 
the next 16 words in core. If they are not identical, the 
printer spaces one line and prints. The address printed 
is that of the first word on the line. 


Operating Procedures 


e With the console Mode switch set to RUN, press IMM 
STOP and RESET. 


e Place the Printer Core Dump program in the reader 
wired for IPL and ready the reader. (If the system 
configuration is 2501, 1442-6 or -7, make the 1442 
not-ready. ) 


e Ready the printer. 
@e Press PROGRAM LOAD. 


Dumping starts at location $ZEND and continues to the 

end of core. The user may halt the dump at any time by 
pressing IMM STOP. Press PROGRAM START to con- 
tinue on the 1403, The 1132 has no restart capabilities. 


DISK CARTRIDGE INITIALIZATION PROGRAM (DCIP) 


The Disk Cartridge Initialization Program (DCIP) is 
composed of 


A disk initialization subroutine 
A disk copy subroutine 

A disk dump subroutine 

A disk patch subroutine 

A disk analysis subroutine 

A disk compare subroutine 
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Initialization 


If sector @IDAD and/or sector @ DCOM on the disk 
are destroyed DCIP will not work properly with 
the exception of the initialize option, 


® Writes a sector address on every sector, including 
defective sectors. 


e Determines which, if any, sectors are defective 
and fills in the defective cylinder table accordingly. 


e Establishes a file-protected area for the disk 
cartridge. 


e Puts an ID on the disk cartridge. 
© Establishes a DCOM, LET, and CIB. 


Initialization of a cartridge is required before the Mon- 
itor system can be loaded. 

The disk I/O subroutines operate with up to three 
defective cylinders, i.e., three cylinders that contain 
one or more defective sectors. 

Cylinder zero must not be a defective cylinder, 
otherwise, the cartridge cannot be initialized. 
Likewise, it must be possible to write at least a 
sector address on every sector, 

At the completion of disk initialization, several 
words are written on sector @IDAD, The three 
words starting at word @DCTB contain the address 
of sector zero of any defective cylinders found 
(maximum of three), When there are no defective 
cylinders, these words contain /0658, e.g., the 
table for a cartridge with a defect only in sector 9 
(cylinder 1), would contain: 


/0008 
/0658 
/0658 


Word @CIDN contains the cartridge ID, Word &COPY, | 
the copy code, contains zero. Word @DTYP contains 

a minus 2, indicating a DM2 non-system cartridge or 
a minus 1, indicating an initialized DM1 cartridge. 
Except for the non-system cartridge error message 
program, which starts at CSTR, the rest of sector 
@IDAD contains zeros. The error message program 
is substituted for the cold start program as the cart- 
ridge is initialized. 

After sector @DCOM has been cleared to zeros, cer- 
tain parameters are initialized to indicate that this is a 
non-system cartridge. The parameter set, including 
their initial values, are listed below: 


#ANDU /0180 (disk block address) End of User Area, adjusted 
(update during JOB T) 
#BNDU /0180 (disk block address) End of User Area, base 


#FPAD /0018 (sector address) File protect address on this 
cartridge 

Cartridge ID of this cartridge 
First sector of CIB on this 
cartridge 

First sector of LET on this 
cartridge 


#CIDN XXXX 
#CIBA /0008 (sector address) 


#ULET /0002 (sector address) 


An initial LET is also created on sector @RIAD. Its 
contents are as follows: 


Word 1 LET sector number /0000 
Word 2 Sector address of UA /0018 
Word 3. Reserved /0000 


Word 4 Words available in this sector /0138 

Word 5 LET/FLET chain address /0000 (Last LET/FLET sector) 

Word 6 1st Word of 1DUMY entry /711 | 1DUMY in packed 

Word 7 2nd Word of 1DUMY entry 14528 truncated EBCDIC 

Word 8 Size of 1DUMY /6280 (Size of WS available in 
disk blocks) 

Words 9-320 of @RIAD all contain zero, 


Copy 


The disk copy subroutine of DCIP 


@ Checks to ensure that both the cartridge to be copied 
and the cartridge onto which the copy is to be made 
have been correctly initialized. 


e Copies a cartridge from any drive onto a cartridge on 
any other drive, making allowances for defective cyl- 
inders. The cartridge ID, copy code, and defective 
cylinder table are not copied from the source cartridge. 
Both Version 1 and Version 2 cartridges may be copied. 


Dump 
The disk dump subroutine of DCIP 


@ Dumps any disk sectors from any drive. 


e Prints the dump on the fastest printer on the system 
(in the order of speed -- 1403, 1132, or Console 
Printer). 


The address of the first sector to be dumped and the 
number of consecutive sectors to be dumped are speci- 
fied in the console entry switches. 

Each sector printout is 20 lines -- 16 four-digit 
hexadecimal words per line. Two sectors are printed 
on each page and each sector is preceded by a 3-word 
header. The first digit of the first header word is the 
drive number. The remaining three digits of the first 
header word show the physical sector address of the 
sector being dumped. The second header word is the 
sector address that actually appears on the sector being 
dumped. The third word is the logical sector address, 
taking into account any defective cylinders. If the user 
dumps a sector that is in a defective cylinder, the third 
word will contain the letters DEFC. 


Patch 
The disk patch subroutine of DCIP 


@ Allows the user to change the contents, word by 
word, of any disk sector, 


@ Prints the contents of the sector patched both Compare 
before and after the changes are made, The 


fastest printer on the system that is ready is The disk compare subroutine of DCIP 

used for output. 
The address of the sector to be patched and the ® Reads corresponding sectors of two drives and 
relative address of the sector word to be changed compares the contents word by word. 
are entered through the console entry switches, 

The hexadecimal characters 0 through F and six The drive numbers of the cartridges to be compared 
special control characters are entered through the are entered through the console entry switches. 


console keyboard, 
A one-word store-buffer is reserved, This can 
be stored to replace the contents of any word of the 


specified sector. Each hexadecimal character Operating Procedures 

entered causes this store-buffer to be shifted left a 

4 bits dropping off the ment significant hex character e With the console Mode switch set to RUN, press IMM 
and replacing the least significant hex character with STOP and RESET on the console 


the one just entered. 


@ Place the Disk Cartridge Initialization Program in the 
reader wired for IPL and ready the reader. 
If the system configuration is 2501-1442, make 


The special characters are used as follows: 


@ To move the relative address pointer forward the 1442 not-ready. (On the paper tape system, 
or backward. place the DCIP tape in the reader, positioning the 

. tape so that one of the delete codes following the pro- 
To store the contents of the one-word store- gram name in the leader is under the read starwheels. ) 
buffer and increment the relative address 
pointer. @ Make printer READY. 

® To enter a new value in the relative address e Press PROGRAM LOAD. 
pointer. 


@ After the program is loaded, the following message 


® To terminate the patch function. is printed on the Console Printer. 


TURN ON: 
@ To fill out the sector with the contents of the one- SWwo TO INITLZ 
word store-buffer and termi nate. Swi TO COPY 
SW2 TO DUMP 
Termination causes the sector contents as modi- SW3 TO PATCH 
fied to be written back on disk. The sector is then SwW4 TO ANALYZE 
read back and printed. SW5 TO CMP 
® Turn on console entry switch 0, 1, 2, 3, 4, or 5 
Analyze and press PROGRAM START. 
The disk analysis subroutine of DCIP 
NOTES: 
® Reads each logical sector 16 times and prints the 1. At any point in this program, an invalid entry in the 
address of the sector each time a read error console entry switches will cause the following 
occurs, message to be printed. 


® Dumps the sector in error if requested. ENTREE eee RR 


Correct the error and press PROGRAM START to 


® Checks each logical sector address for the cor- continue. 
rect value and prints the address and erroneous 2. Ifadrive is not ready, the standard preoperative 
contents when an error is found, The correct trap to $PRET is made. The Accumulator contains 
sector address is then written on the sector. /50X0 where X is the number of the physical drive 
that is not ready. 
The drive number of the cartridge to be analyzed 8. All console entry switch settings are printed on the 
is entered through the console entry switches. Console Printer as 4-digit hexadecimal numbers. 
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4, DCIP messages refer to console entry switches as THIS IS A NON-SYSTEM CARTRIDGE 
"bit" switches. 

5. If the system has two card readers, only the reader 
wired for IPL should be in the ready state. 


When the Monitor system is loaded to disk, this mes- 
sage is overlaid by the Cold Start program; therefore, 
an attempt to cold start a non-system cartridge will 


6. A DCIP function can be aborted at any time by result in the above message being printed. 


pressing keyboard INT REQ. The user is then 


given the option of repeating the current function One of the following messages is printed. 


or selecting a new function. NO DEF CYCLS 
or 
DEF CYCLS: 
Initialization (Console Entry Switch 0 On) XXXXK... 
e If console entry switch 0 is on, the following message [If more than 3 defective sectors are printed, or if cylin- 
is printed. der zero is defective, or if the sector address cannot be 
written on everv sector. the cartridge cannot be used 
BN DE NOs es Sere with the Monitor system and the following message 
SW0O ON FOR DM1 LABE isrnvinied: 
CART DEF 


Enter the physical drive number of the cartridge being 
initialized (in binary) in console entry switches 12-15. The last message printed is: 


TURN ON SW 0 FOR MORE TESTING 


e Set console entry switch 0 as desired and press 


® Turn console entry switch 0 off ifa DM2 label PROGRAM START. 
is desired. 
e If console entry switch 0 is off, the program returns 
© Leave console entry switch 0 on to enter a DM1 to accept the next DCIP function. 
label. If console entry switch 0 is on, the following mes- 
sageis printed. 
eRe ore ge ENTER REPEAT CNT (BITS 11-15) 
© If console entry switch 0 is on, the K.B. SELECT Enter the repetition count (max. 31) in binary in 
light on the console keyboard will light. Enter a console entry switches 11-15, This will give 
tive character alphanumeric label through the key- additional opportunity to find marginal cylinders 
board. After five characters have been entered and reduce chances of disk errors later on, 


initialization will commence © Press PROGRAM START. 


e If console entry switch 0 is off, the following message Initialization is repeated with each cylinder being 
checked with each pattern the number of times speci- 


is printed. 
fied in the repetition count. When the pass is com- 
ENTER CART ID pleted, the initialization complete messages are re- 
Turn off all console entry switches and enter the peated, including any new defective cylinders found 
cartridge ID in console entry switches 1-15 (four and the user is again given the option to repeat the 
hexadecimal characters), A valid cartridge ID initialization, or select the next DCIP function, All 
is a number between /0001 and /7FFF. new cartridges must be initialized by DCIP. 


: : : Copy (Console Entry Switch 1 On) 
e Press PROGRAM START. The cartridge ID is printed. 
e If console entry switch 1 is on, the following message 


ee is printed. 
ENTER: 
® The cartridge is initialized. (The entire surface is SOURCE DR (BITS 0-3) 

cleared, disk addresses are written, and three distinct OBJECT DR (BITS 12-15) 
bit patterns are written and read back for checking Enter the physical drive number of the source drive 
purposes. In addition, the following message and a (in binary) in console entry switches 0-3. Enter the 
program for printing it is written on sector @IDAD, drive code of the object drive (in binary) in console 
starting at word 271. entry switches 12-15, 


Press PROGRAM START. 
If the cartridge on either the source or object 
drive has not been initialized, the following mes- 
sage is printed. 

X CART NOT INITLZED 
where X is "SOURCE" or "OBJECT" 
The program now returns to accept the next 
DCIP function and the option messages are print- 
ed. 


If the object cartridge is a DM2 system cartridge, 
the following message is printed: 
OBJ CART NOT FRESHLY INITLZED 


The operator can either press the INT REQ key 
and return to initialize the cartridge, or press 
PROGRAM START and continue. 


If both drives have been initialized, the contents 
of the source cartridge (less defective sector 
data and cartridge ID) is copied on the object 
cartridge. Word 5 of sector @IDAD of the 
source cartridge (zero when the cartridge is ini- 
tialized) is incremented by 1 when written on the 
object cartridge. The copy number of the object 
cartridge will thus always be one more than the 
copy number of the source cartridge. 
NOTE: When copying is complete, the program 
returns to select the next DCIP function and the 
option messages are printed. If a disk read/ 
write error occurs, the following message is 
printed. 

DISK ERR... TURN ON SW 0 TO RETRY 


At the WAIT, the Accumulator contents will be 
/0001 for a read error or /0002 for a write err- 
or. The Extension will contain /XYYY where X 
is the drive code and YYY is the address of the 
sector in error. 


Turn console entry switch 0 on and press PROGRAM 


START to rewrite or reread the sector in error. 


Leave console entry switch 0 off and press PRO- 
GRAM START to ignore the error and continue. 
If the error is ignored, the contents of the object 
cartridge will reflect the last attempt to copy the 
sector in error. 


Dump (Console Entry Switch 2 On) 


“If console entry switch 2 is on, the following 
message is printed. 
ENTER. ..PHYS DR NO. (BITS 0-3) 
SCTR ADDR (BITS 4-15) 


Enter the physical drive number of the drive con - 
taining the cartridge to be dumped in console entry 
switches 0-3, Enter the address of the first sector 
to be dumped in console entry switches 4-15 (hexa- 
decimal, maximum /0657. 
* Press PROGRAM START. The following message 
is printed. 
ENTER NO. OF SCTRS.TO DUMP 


Enter the number of consecutive sectors to be dump- 
ed as a right-justified hexadecimal number in the 
console entry switches. The maximum amount will 
depend on the starting sector address. 


*Press PROGRAM START. 
The requested number of sectors will be dumped. 
When the dump is complete, the program returns 
to accept the next DCIP function and the option mes- 
sages are printed. 
NOTE: If a disk read error occurs, the following 
message is printed. 

DISK ERR...TURN ON SW 0 TO RETRY 


Turn console entry switch 0 on and press PROGRAM 
START to read the sector in error. If the reread 
is successful, the sector is printed and the dump 
continues. 


Leave console entry switches 0 off and press PRO- 
GRAM START to ignore the error and continue. The 
sector in error is printed as it was last read from 
the disk. 


Patch (Console Entry Switch 3 On) 


® If console entry switch 3 is on, the following mes - 
sage is printed: 


ENTER: 
PHYS DR NO. (BITS 0-3) 
SCTR ADDR (BITS 4-15) 


Enter the physical drive number of the drive con- 
taining the cartridge to be patched in the console 
entry switches 0-3. Enter the address of the sec- 
tor to be patched on console entry switches 4-15 
(hexadecimal 0657 maximum) 


Press PROGRAM START. 
The sector contents will be dumped. The following 

message is then printed: 
ENTER RLTV ADDR OF SCTR WD TO CHANGE 


Enter the relative address of the sector word in 


hexadecimal (0-13F) through the console entry 
switches. 
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NOTE: If a change in the sector address is 
desired the value -1 (FF FF) may be entered. 


Press PROGRAM START, 


The KEYBOARD SELECT indicator will light and 
the program will wait. 

NOTE: The relative address pointer is displayed 
in the Extension each time the program waits for 
Keyboard input. 


Enter through the console keyboard the four hexa- 
decimal characters which comprise the word to be 
stored, The characters typed will be printed on 
the console printer. 


NOTE: If an error is made, entering the correct 
four characters will replace the ones in error. 
Any of the keys for the six special control 
characters can be pressed with the following 
result: 


EOF - The last four hexadecimal characters 
input will be stored at the relative address 
displayed in the Extension, 

> - The relative pointer is incremented one 
word, 

ze - The relative pointer is decremented one 
word, See note below. 

* - Patching is terminated, The sector as 


modified is written on the disk, The sec- 
tor is read back and dumped, 

e - All the remaining words of the sector from 
the address pointed to by the relative 
address displayed in the extension to 
relative address /013F will be filled with 
the last four hex characters input. 
Patching is terminated, 

R - The message will be printed again re- 
questing the relative address of the sector 
word to change, In this way the pointer 
can be changed without stepping it one 
word at a time. 


If an invalid character is pressed, the following 
message will be printed: 


ENTRY ERR...RETRY 
Enter the correct character to continue, 


NOTE: The < will not decrement the pointer be- 
yond the first data word (relative address =0). 
The sector address pointer (FF FF) can only be 
entered through the console entry switches. 


ENTER DR NO. (BITS 12-15) 


Enter the physical drive number of the drive con- 
taining the cartridge to be analyzed in the console 
entry switches 12-15, 

® Press PROGRAM START. 
The program begins reading each sector 16 times, 
If a disk read error occurs, the following mes- 
sage is printed: 


DISK READ ERR ON SCTR nnnn 
TURN ON SW 0 TO DUMP 


Turn on the bit 0 switch of the console entry 

switches if a dump of the sector is desired. 
® Press PROGRAM START. 

If an erroneous sector address is read, the 

following message is printed: 


ADDR ERR ON SCTR nnnn 
BAD SCTR ADDR WAS nnnn 


The correct address will be written on the disk 
sector and disk analysis will continue. 


Compare (Console Entry Switch 5 On) 


® If console entry switch 5 is on, the following 
message is printed: 


ENTER: 
SOURCE DR (BITS 0-3) 
OBJECT DR (BITS 12-15) 


Enter the drive number of the cartridges to be 
compared. 


© Press PROGRAM START. 


The program compares each logical sector of the 
source drive with its counterpart on the object 
drive, If the contents of two corresponding sec- 
tors does not compare, the following message is 
printed: 


CMP ERR ON SCTRS xxxx yyyy 


When compare is finished, the program returns to 
accept the next DCIP function. If the function is 
not another COMPARE, the following message is 
printed: 


CMP OPTION USED...RELOAD DCIP 


Analyze (Console Entry Switch 4 On) 

This is required because part of the functioning 
program is overlaid by the additional disk buffer 
used by compare, 


® If console entry switch 4 is on, the following mes- 
sage is printed: 
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PAPER TAPE REPRODUCING PROGRAM 


This program, available only with the paper tape sys- 
tem, is a self-loading paper tape strip that reproduces 
paper tapes. The program reads a character and 
punches it with no intermediate conversion. 


Operating Procedure 


e Place the paper tape reproducing program tape in 
the paper tape reader, positioning the tape so that 
one of the delete codes beyond the ID in the leader 
is beneath the read starwheels. 


e@ With the console Mode switch set to RUN, press 
IMM STOP, RESET, and PROGRAM LOAD on the 
console. The reproducing program is read in and 
WAITs with /111: in the Accumulator. 


@ Remove the reproducing program tape and place the 
tape to be reproduced in the reader. Place blank 
tape in the tape punch unit and produce several 
inches of delete code leader by first pressing down 
and holding the DELETE key. Then press the FEED 
key and hold until a leader of sufficient length has 
been punched. Release the FEED key before re- 
leasing the DELETE key. 


e Press PROGRAM START to begin the tape repro- 
ducing operation. The program continues to operate 
until the paper tape reader goes not-ready, indi- 


cating that there is no more tape to be read. The 
tape reproducing routine then WAITs with /2222 in 


the Accumulator. If the paper tape punch is not- 
ready, the tape reproducing program WAITs with 
/3333 in the Accumulator. To restart, ready the 


paper tape punch, and press PROGRAM START. 
An unlimited number of tapes can be reproduced 
by this program. Be sure to create a trailer (and 
leader) of delete codes between the output tapes if 
the tapes are to be separated. 


NOTE: If the PROGRAM STOP key is pressed while 
the program is in operation, the program WAITs 
with /4444 in the Accumulator. Press PROGRAM 
START to continue. 


STAND-ALONE PAPER TAPE UTILITY PROGRAM 
(PTUTL) 


This program, also included as an executable program 
in the System Library, is a self-loading paper tape 
utility program that allows the user to enter records 
from the 1134 Paper Tape Reader or the Keyboard. 
Program output is to the 1055 Paper Tape Punch and/ 
or the Console Printer. 


Operating Procedures 


e Place the PTUTL tape in the paper tape reader so 
that one of the delete codes beyond the program ID 
is under the read starwheels. 


e With the console mode switch set to RUN, press 
IMM STOP, RESET, and PROGRAM LOAD on the 


console. 


e PTUTLis read in andthe system WAITs with/1111 
in the Accumulator, 


e For complete operating instructions for PTUTL, see 
Paper Tape Utility (PTUTL) in the System Library. 
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REMOTE JOB ENTRY PROGRAM 


The Remote Job Entry (RJE) feature of OS/360 ex- 
tends to users the ability to introduce jobs into the 
OS/360 job input stream from remotely located 
terminals via communication lines. RJE includes 
a unique Job Entry Control Language which pro- 
vides the additional flexibility and control required 
for remote entry. For a general description of 
RJE and the Job Entry Control Language see IBM 
System/360 Operating System, Remote Job Entry 
(Form C30-2006). 

This section provides information for operators 
and programmers using an 1130 as a remote work 
station in an RJE environment, and describes 
machine and device requirements, input and output 
at the work station, communication considerations, 
operating procedures, operator messages, user- 
exit interface and generation and loading of the 
work station program, 


MACHINE AND DEVICE REQUIREMENTS 


The RJE program for an 1130 work station requires 
at least an 1131 Model 2B, a card reader, a card 
punch and a line printer (with 120 character print 

| line). The 1130 System must be connected to a 600- 
2400 bit-per-second line via a Synchronous Commun- 
ications Adapter in binary mode, There is an optional 
compress-expand feature, i.e. elimination of blanks 
on the line, This feature requires 16 K words of core 
storage if the 1132 printer is used, 


A user-written subroutine may specify output on 
any available output device, An 1130 system with 
16K words of core storage is required to support a 
user-written subroutine, Data directed to the user- 
exit is stored on disk, if not user-written subroutine 
is present, and can be processed by another user pro- 
gram after RJE processing is terminated, 


INPUT AT THE WORK STATION 


Input is accepted from the card reader, the Keyboard 
and from one or more disk storage units, 


Job entries (OS/360 jobs with or without JED 
statements) and work station commands are ac- 
ceptable input from the card reader, No JECL 
statements are sequence checked, but the first 
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statement at work station startup must be an 
RJSTART command submitted from the card 
reader, 


The only valid input from the Keyboard consists of 
work station commands, Input is accepted from the 
the Keyboard between job entries (only in a point-to- 
point line configuration) from the card reader (or 
disk) when the operator has indicated that he has such 
input to submit, The 1130 RJE Work Station Pro- 
gram checks this input for the JECL identifier 
(.. followed by at least one blank) only. 


Input is also accepted from one or more disk 
storage units. A special 1130 RJE control card 
(see JECL for the 1130 Work Station) is defined 
to control this function, This control card may 
be placed in the card input stream or on disk. 

It contains information allowing the RJE program 
to read input alternately from the card reader and 
from the disk. Data to be read from disk must be 
stored there prior to RJE processing by the user. 
This data must be stored in 80-character records 
in 8-bit packed code (EBCDIC) format (eight re- 
cords per disk sector), in consecutive sectors, 
After reading this input to end of file (see JECL 
for the 1130 Work Station section for a descrip- 
tion of the various end of file indications), the 
RJE program resumes reading from the card 
reader, 


NOTE 1: If auser is logged on at the card reader 
(or disk) and another LOGON command is submitted 
from the Keyboard, all pending input for that user 

at the card reader and/or from disk will be sub- 
mitted under the new LOGON user ID. To prevent 
this, the last LOGON command, which was sub- 
mitted from the card reader or disk must be submit- 
ted as the last command from the Keyboard, 


NOTE 2: Although it is possible to submit work 
station commands from disk, it is recommended 
that only job entries and OS/360 input data sets are 
placed on disk, in order to simplify work station 
operation. 


OUTPUT TO THE WORK STATION 


Output to the work station consists of job output 
and messages. Job output, consisting of SYSOUT 
data sets created by the job, is directed to the 


| printer, the punch, or a user-exit subroutine. Each 


job output data set is directed to the device asso- 
ciated with the SYSOUT class specified in the DD 
statement for the output data set. RJE system 
messages are directed to the Console Printer or 
the line printer, 

Carriage control for printer output may be 
specified by a control character as the first byte 
of each record, Either machine code or ASA con- 
trol characters are allowed. The output is single- 
spaced with a skip to channel 1 when channel 12 is 
sensed in the carriage tape and no control charac- 
ters are specified or the control characters are 
not recognized by the equipment, 

Stacker select for punched output, if available, 
may be specified by a control character as the 
first byte of each record, Either machine code 
or ASA control characters are allowed. Stacker 
1 is selected if no control characters are specified 
or if the control characters are not recognized by 
the equipment, 

The 1130 RJE Work Station Program includes a 
user-exit subroutine which accepts data sets direct- 
ed to it and writes them on disk in an area reserved 
by the user. 

This subroutine may be replaced by another user 
written subroutine to process data directed to the 
user-exit and to write output to any available de- 
vice (see User Exit Interface for a more detailed 
description), 

If no user-written subroutine is present, the RJE 
program writes user-exit data sets consecutively 
on disk, each data set beginning at a disk sector 
boundary. However, if the RJE program is re- 
loaded, data sets previously written on disk are 
unprotected and may be destroyed since any addi- 
tional user-exit data sets are written beginning at 
the first sector of the reserved area, Information 
is displayed to the operator for each data set writ- 
ten on the disk (see 1130 RJE Messages). 

The primary output device for messages is the 
Console Printer, The secondary device is the line 
printer, The operator selects the line printer as 
the message device by turning on Console Entry 
Switch 0. 

NOTE: Data directed to disk may be referenced 
later by a.. DATA command, To be able to do 
this, the user must define his data set as fixed 
blocked or unblocked with a logical record length 
of 80 bytes and no control characters, 


COMMUNICATION CONSIDERATIONS 


The 1130 RJE Work Station Program provides the 
standard RJE communications interface to the RJE 
communications network using SCAT2 and SCAT3 


binary synchronous communications subroutines 
to provide the following capabilities: 


1, Point-to-point contention operation on leased 
lines. 


2. Point-to-point operation on switched lines, 


3. Multipoint operation with the 1130 system as 
slave station. 


All data transmissions between the central pro- 
cessor and a remote 1130 are in EBCDIC transpar- 
ent mode except headings, which are transmitted in 
normal mode, Communication with the central 
system proceeds in three modes: monitor, receive, 
and transmit, 


Monitor mode is entered from either transmit or 
receive mode. In monitor mode, the work station 
waits for input from the line, card reader, or 
Keyboard, 


Receive mode is entered when output is available 
for the work station. In receive mode, the program 
reads output from the line until it receives an end- 
of-data indication from the central system or until 
the operator discontinues the output. The program 
then enters monitor mode, 


Transmit mode is entered at work station startup 
and when input is available at the work station. The 
work station program writes to the line in transmit 
mode. It continues writing to the line until it has 
encountered a logical end-of-file (..null command 
or RJEND) in the input stream, 

If monitor mode is entered from transmit mode 
with a logical end-of-file indication (caused by a 
.- null command, transmit mode is not entered 
again until operator intervention indicates that 
more input is available, 


COMMUNICATION CONSIDERATIONS FOR 
SWITCHED LINES 


If a switched communication line is inactive for a 
period of approximately 21 seconds, the central 
RJE program disconnects the line. This can be 
caused by three situations: 


1. The remote RJE program cannot maintain the 
connection when an error on an output device is 
not corrected within the specified time. 

2, The remote RJE program cannot maintain the 
connection when a user-written subroutine fails to 
return control within the specified time. 
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3. The remote RJE program cannot maintain the 
connection when it is waiting for an operator 
response, When requested to reply to some 
RJE messages, the operator must enter his 
response within the specified time. 


NOTE: The operator will have approximately three | 
minutes to reply to some RJE messages. See Op- 
erator Messages for detailed information. 


OPERATING PROCEDURES 
WORK STATION STARTUP 


To start RJE operation, the operator loads the 1130 
RJE Work Station Program by using the program 
name RJE in the XEQ monitor control record. 
This program uses the information saved on disk 
by the generation program (see 'Generation of the 
1130 RJE Work Station Program! for a description 
of this program) and information from the Disk 
Monitor System which specifies principal I/O de- 
vice and principal print device in order to load the 
mainline program and the subprograms necessary 
to perform the RJE functions corresponding to the 
user's configuration, 


NOTE: The Console Printer cannot be the principal 
print device. 


The RJSTART command must be the first data 
card in the card reader. A missing RJSTART 
command results in an error message to the op- 
erator. The operator then places a correct 
RJSTART command in the card reader and presses 
the PROGRAM START key to continue. If the work 
station is connected to the central system over a 
switched line a message is now given to the oper- 
ator, telling him to call the central system. 

The RJSTART command may be followed either 
by input to be sent to the central system or by an 
end-of-file indicator (see The Null Command). 

When contact is made with the central system, the 
RJSTART command and all other commands, if 

any, before the first job entry (the OS/360 job with 
or without the JED card) or before the end-of-file 
indicator are transmitted, The work station is 
logically atiached to the RJE system with the ac- 
knowledgement of the RJSTART command, The 
operator receives all pending messages and imme- 
diate job output directed to users at the work station. 
All pending input, if any, is transmitted or the work 
station program monitors for output from the central 
system, The sequence of events is system dependent, 
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THE NULL COMMAND 


The null command is provided for the 1130 work 
station to indicate end of file on the card reader. 

It must be the last card of an input stream, When 
this command is read, the card reader is effec- 
tively closed, but communication is still maintained 
with the central system. 

Operator intervention is required to resume in- 
put from the card reader after the null command 
has been read, The null command is coded with 
the identifying characters (..) in columns 1 and 2 
and all remaining columns blank. 


KEYBOARD PROCEDURES 


There are four control functions initiated by the 
operator from the Keyboard: indicating card reader 
input, indicating Keyboard input, discontinuing out- 
put and initiating an abnormal closedown of the RJE 
program, These functions are initiated by the oper- 
ator first pressing the PROGRAM STOP and then the 
PROGRAM START keys on the console, When the 
message 'J90 OCR=! (Operator Communication Re- 
quest) appears, the operator enters the appropriate 
reply to initiate the function he desires (see Opera- 
tor Messages later). 

If the operator has indicated Keyboard input, a 
message 'J93 PROCEED' will be displayed and the 
Keyboard select light is turned on, at the time when 
the program can service Keyboard input. The oper- 
ator then enters the desired commands with an 
EOF at the end of each command, After entering 
the last command, an extra EOF must be entered to 
indicate end of input, The last EOF must not be en- 
tered until the Keyboard select light is on, 

An abnormal closedown is initiated by replying 
with a T to the 'J90 OCR=' message, This reply 
causes the work station program to be terminated 
and the contents of core storage to be printed out. 

The central system notes an error condition and 
logically detaches and disconnects the work statjon, 
if it is connected over a switched line. The work 
station is also logically detached from the central 
system on a leased or multipoint line, if a line op- 
eration is in progress when the operator requests 
the termination, and also when the central system 
tries to contact the work station if the line was idle 
when the request was made and the program has not 
been reloaded, 


NOTE 1: If the Keyboard procedure is used when 
the Console Printer is already in use, the message 
is not printed, However, the PROGRAM START 

key must be pressed in order to continue processing, 


NOTE 2: The INT REQ key may not be 
used when the RJE program is loaded, because 
certain information in the Skeleton Supervisor, 
modified by the RJE program, will then not be re- 
stored and may cause the Disk Monitor System to 
function improperly, 


DISCONTINUING OUTPUT 


Job output can be discontinued by operator interven- 
tion, The operator used the Keyboard procedure to 
initiate the request with a D to discontinue output. 

Output is also discontinued by the 1130 RJE Work 
Station Program when no user-written subroutine is 
present for output directed to user-exit and when one 
of the following three errors occurs: 


1, No area is reserved for user-exit output. 
2. The reserved area is exhausted, 
3. An unrecoverable disk write error occurs. 


These errors are indicated to the operator in an 
error message. To correct problems | and 2, the 
operator should terminate RJE by submitting an 
RJEND command (after all pending input has been 
transmitted) and then reserve an area on disk by 
executing the RJE00 program (see Generation of 
the 1130 RJE Work Station Program section), 

The RJE program should then be reloaded and the 
output should be discontinued immediately by the 
operator and a CONTINUE command with the 
BEGIN operand should be submitted. Otherwise, 
data will be lost, 

The same CONTINUE command should be used 
if the third error occurs. The data set will then 
be written again, starting at a new sector. 

In general, once output is discontinued, no other 
output is transmitted to the work station until the 
disposition of the discontinued output is specified 
by the CONTINUE command, 


CONTINUING OUTPUT 


Disposition of discontinued output is specified with 
the CONTINUE command, Output is discontinued 
if the following conditions occur: 


1, The remote operator requests discontinuation, 


2. A change in form number is found at the central 
system, 


3. The remote program requests discontinuation, 


4, Anirrecoverable error occurs during an output 
operation, 


If conditions one, two or three occur, the dispo- 
sition of the output is specified with the CONTINUE 
command, Condition four requires error recovery 
procedures, 


ERROR RECOVERY PROCEDURES 


At an 1130 work station, facilities are provided to 
recover from both communication errors and local 
device errors. Operator intervention may be net~ 
essary to correct the condition causing the error, 
If the error cannot be corrected within the allowed 
time, the central system logically detaches the 
work station from the RJE system. In addition, if 
the work station is connected over a switched line, 
the central system breaks the connection, 


In the case of a local I/O device error a message 
is always issued except for a forms check on the 
Console Printer. This error causes the forms check 
light to go on, and the operator tells the system to 
try again by turning on console entry switch 1. The 
communications on the line are maintained only if the 
error is corrected within approximately 21 seconds, 

An error on an I/O device other than Keyboard 
is always followed by a message describing what 
type of error has occurred. The explanations for 
the messages, and the actions taken by the program 
after the operator's reply are described in the 1130 


RJE Error Messages section, 


Irrecoverable communication errors result when 
communication is lost with the central system be- 
cause of either line errors or a failure at the cen- 
tral system. In either case, the work station is 
logically detached by the central system and re- 
start procedures are necessary. The response re- 
ceived when restart procedures are executed indi- 
cates whether the error was due to a line error or 
to a failure at the central system. 


RESTART PROCEDURES 


Restart procedures involve regaining communica- 
tion with the central system and submitting an 
RJSTART command, The operator initiates the re- 
start procedure by replying with an A to the line 
error message (see 1130 RJE Error Messages). 


If the error occurs during an output operation, 
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output automatically resumes either where it was 
interrupted (after a line error) or at the beginning 
of the job (after a failure at the central system). 

If output was written to disk at the time of a line 
error and if it was not a central system failure, the 
operator should discontinue the output and submit a 
CONTINUE command with the BEGIN operand. 

If the output was written to the punch or the 
printer at the time of a line error and if it was not 
a failure at the central system, a duplication of the 
last transmission block may occur when the pro- 
gram is restarted. The printer will skip to a new page 
when RJE is restarted if the data set being printed is 
without control characters. 

If the error occurs during an input operation, all 
unacknowledged input must be resubmitted. 
Furthermore, a line error in the middle of a job 
implies that the whole job must be resubmitted from 
the beginning, Before the job can be transmitted 
again with the same job name, the old job, that was 
partially sent to the central system, must be deleted, 
This is sometimes done automatically, but if not, the 
job must be deleted by the operator, 


NOTE: The work station restart procedure after a 
central system failure is similar to the restart pro- 
cedure after an irrecoverable line error. The pri- 
mary difference is that after a system failure, an 
in-process output data set is written from the begin- 
ning rather than from the last valid block. 


ERROR STATISTICS 


Error statistics are accumulated during an RJE run, 
The operator tells the program that he wants these sta 
tistics printed out by turning on console entry switch 

2 before the RJE run is terminated, It is also pos- 
sible to get a printout of the error statistics accumu- 
lated during the last RJE run by executing a program 
called RJSTA that belongs to the RJE package. 


CONSOLE ENTRY SWITCHES 


Three console entry switches are used by the RJE 
Work Station Program, 


0 - off - RJE messages from the central system 
will go to the Console Printer 
on ~- RJE messages from the central system 
will zo to the line printer, 


1 - When the Console Printer becomes not ready, 


the operation will not be retried unless this 
switch is on, 
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2 - If on, the error statistics accumulated by 
SCAT2 or SCATS3 will be printed out on the 
Console Printer at the end of the RJE run. 


OPERATOR MESSAGES 


The first digit of the messages has the following 
meaning: 


0 - Error in RJE00O 
1 - Error in the initializing part of RJE 


2 - Error during the processing of the RJE 
program, that does not require an operator 
reply. 


. - Error during the processing of the RJE 
program, that requires a reply from the 
operator, 


9 - Non-error message, 
1130 RJE ERROR MESSAGES 


J01 INVALID CARD 


Explanation: This message is issued during work 
station program generation when the control card 
containing the work station information is invalid 


or contains invalid information (see Generation of 


the 1130 RJE Work Station Program). 


System Action; The program exits to the Disk 
Monitor Supervisor. 


Operator Response: The operator must reload the 
generation program and enter a valid data card. 


J10 INVALID PRINTER 


Explanatio : Information from the Disk Monitor 
Svstem indicates that the principal print device is 
not an 1132 Printer or a 1403 Printer. 


System Action; The system exits to the Disk Mon- 
itor Supervisor. 


Operator Response: The operator may reload the 
RJE program after performing a system reload and 
may specify either an 1132 Printer or a 1403 Printer 
as the principal print device (see System Reload for 
information on how to reload the system). 


Jil INVALID READER 


Explanation: Information from the Disk Monitor 
System indicates that the principal I/O device for 
the system is not a 1442 card reader or a 2501 
card reader. 


System Action: The system exits to the Disk Mon- 
itor Supervisor. 


Operator Response: The operator may reload the 

RJE program after performing a system reload and 
may specify either a 1442 ‘Card Reader or a 2501 Card 
Reader as the principal I/O device (see System 

Reload for information on how to reload the system), 


J12 LOGICAL DRIVE X NOT IN SYSTEM 


Explanation: The area on disk reserved for user- 

ex it data is on a logical disk drive that is not present 
in this RJE run. The requested logical drive replaces 
X in the message. 


System Action; The system exits to the Disk Monitor 
Supervisor. 


Operator Response: The operator may reload the 

RJE program after having changed the user-exit para- 
meters or after having introduced the requested 
logical disk drive. 


J14 DISK ERROR OCR= 


Explanation: A permanent error has been encoun- 
tered while attempting to read data from disk during 
the initialization part of the RJE program. 


System Action; The system continues according to 
the operator response. 


Operator Response: The operator must enter one 
of the following codes: 

T - Exit to the Disk Monitor Supervisor re- 
questing a terminating dump of the contents 
of core storage on the printer. 

X - Exit to the Disk Monitor Supervisor, 
without writing the contents of core 
storage on the printer. 


J20 RJSTART MISSING 


Explanation: The requirement for an RJSTART 
command has not been satisfied, 


System Action: The system waits for operator ac- 
tion. 


Operator Response: The operator must enter an 
RJSTART command through the card reader and 
press the PROGRAM START Key, in order to resume 
processing,: 


J21.. DATA INVALID 


DATA statement contains invalid 


Explanation: A... 


parameters, 


System Action: The system waits for operator inter- 
vention. The line is monitored for output from the 
central system. 


Operator Response: To continue RJE processing, 
the operator must use the Operator Communication 
Request facility (see message J90 OCRS=). 


Note: This message is also issued if the requested 
logical disk drive is not present. 


J22 INVALID INPUT 


Explanation: The input entered from the console- 
keyboard does not start with the JECL identifier 
(..) followed by at least one blank, 


System Action; The system waits for more input 
from the Keyboard. 


Operator Response: The operator must enter a 
work station command or press EOF. 


J23 INPUT ABORTED BY CENTRAL 


Explanation: The central system has aborted input 
from the work station and will send a message ex- 
plaining why the input was aborted (For details on 

messages received, see Messages Sent to Work 


Stations in IBM System/ 360 Operating System, 
Remote Job Entry Form C30-2006), 
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System Action; The system waits for input from the 
line. 


Operator Response: When the message is received 
from the central system, the operator inspects the 

message and takes the indicated action. To resume 
input the operator must follow the procedures de- 


scribed under Keyboard Procedures. 


J51 LINE ERROR OCR= 


Explanation; An irrecoverable error has been en- 
countered while reading or writing on the communi- 
cation line, or the line cannot be opened. 


System Action; The RJE program closes the com- 
munication line, if it is open, and waits for an op- 
erator response. 


Operator Response: The operator must reply by en- 
tering one of the following codes from the Keyboard: 


A - Input is available at the card reader. If 
this option is selected, the first card in 
the card reader must be an RJSTART com- 
mand, Ona switched line, the line has to 
be disconnected before the restart is tried. 
If this is not done automatically by the 
work station program, it has to be done by 
the operator. He has to dial again when 
the message J91 ESTABLISH LINE CON- 
NECTION is issued. 


T - Exit to the Disk Monitor Supervisor, re- 
questing a terminating dump of the contents 
of core storage on the printer, 

X - Exit to the Disk Monitor Supervisor, without 
writing the contents of core storage on the 
printer. 


J52 DISK ERROR INPUT OCR= 


Explanation, A permanent error has been encoun- 
tered while attempting to read input from disk. 
This message is issued only if a user's disk input 
is being read at the time the error occurs, 


System Action: Reading of the input data file(s) 
and card reader input is discontinued, Any avail- 
able output from the central system is accepted 
after the operator response has been entered, The 
system continues according to the operator's re- 
sponse, 
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Operator Response: The operator must enter one 
of the following codes. The response must be en- 
tered within approximately 3 minutes on a switched 
line. 


A - Input is available at the card reader. 


B - Commands are to be read from the console- 
keyboard. 


C - Available output is accepted. (Any pending 
keyboard input is processed first. ) 


T - Exit to the Disk Monitor Supervisor, requesting 
a terminating dump of the contents of core 
storage on the printer. 
NOTE: A user may have to resubmit a job that has 
been only partially entered, but must precede this by 
either obtaining the output of, or deleting, the job in 
question. 


J53 DISK ERROR OUTPUT OCR= 


Explanation: An unrecoverable error has been encoun- 
tered while attempting to write data on disk. This 
message is issued only if data is being written on 

disk by the IBM-supplied user-exit routine, 


System Action: Output from the central system is 
discontinued. The disposition of the output is 
specified by use of the CONTINUE command. The 
system continues as directed by the operator re- 
sponse, 


Operator Response: The operator must enter one 
of the following codes, The response must be en- 
tered within approximately 3 minutes on a switched 
line. 


A - Input is available at the card reader, (Any 
pending keyboard and disk input is processed 
first. ) 


B - Commands are to be read from the console- 
keyboard. 


C - Any pending input (keyboard, disk or card) 
is processed, If no pending input exits, the 
system maintains the line operations. 


T - Exit to the Disk Monitor Supervisor, re- 
questing a terminating dump of the contents 
of core storage on the printer, 


J54 DISK ERROR OCR= 


Explanation: An unrecoverable error has been encoun- 
tered while attempting to read RJE constants or error 
messages from disk. If this message appears, an 

RJE error message that indicates the original error 
may not appear. 


System Action: The system continues according to 
the operator response. 


Operator Response: The operator must enter one 
of the following codes: 


T - Exit to the Disk Monitor Supervisor, re- 
questing a terminating dump of the contents 
of core storage on the printer, 


X - Exit to the Disk Monitor Supervisor without 
writing the contents of core storage on the 
printer. 


J55 END OF DISK AREA OCR= 


Explanation; The user has failed to reserve space 
or has reserved too little space on disk for user- 
exit output data sets, 


System Action; Output from the central system is 
discontinued. The system continues as directed by 
the operator response. 


Operator Response: The operator must enter one 
’ of the following codes, The response must be 
entered within approximately 3 minutes ona 
switched line. 


A - Input is available at the card reader (Any 
pending keyboard and disk input is processed 
first. ) 


B - Commands are to be read from the Keyboard. 


C - Any pending input (keyboard, disk or card) 
is processed, If no pending input exists, 
the system maintains the line operations. 


T - Exit to the Disk Monitor Supervisor, re- 
questing a terminating dump of the contents 
of core storage on the printer. 


J56 CARD READER ERROR OCR= 


Explanation: An error has occurred on the card 
reader which requires operator intervention. 


System Action; The system waits for the operator 
reply. 


Operator Response: The operator must enter one 
of the following codes. The response must be en- 
tered within approximately 3 minutes on a switched 
line. 


A - The operator has corrected the problem 
and the program will resume card reader 
input. 


E - The operator could not correct the problem, 
The program assumes reading an end-of- 
file (.. null card) indication to close the 
card reader. 


J57 CARD PUNCH ERROR OCR= 


Explanation; An error has occurred on the card punch 
which requires operator intervention, 


System Action: The system waits for the operator re - 
sponse, 


Operator Response: The operator must enter one of 
the following codes. This response must be entered 
within approximately 3 minutes on a switched line, 


D - The operator could not correct the problem, 
Output from the central system is discon- 
tinued and a... CONTINUE command has to 
be transmitted to resume output, 


P - The operator has corrected the problem and 
the program will resume card punch output. 


J58 PRINTER ERROR OCR= 


Explanation: An error has occurred on the printer 
which requires operator intervention, 


System Action: The system waits for the operator 
response, 
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1130 Disk Data File Conversion Program 


The following information is designed to assist in 
understanding the program flowcharts by presenting 
an overall view of the purpose of each major part of 
the program. 


FLOWCHARTS: 
CHART A 
CHART B 
CHART C 
CHART D 
CHART E 
CHART F 
CHART G 


PROGRAM NAME: DFCNV 

GENERAL PROGRAM DESCRIPTION: The program 
converts one 1130 FORTRAN and/or Commercial 
Subroutine Package (1130-SE-25X) disk data file to 
one 1130 RPG disk data file. FORTRAN files created 
using logical unit number 10 cannot be converted by 
DFCNV. Converted files cannot be processed as 
ISAM files. The program accepts all FORTRAN and 
Commercial Subroutine Package (CSP) disk data 
formats and a two-word integer format (see Appen- 
dix E). The input data may be a disk data file or 

the corresponding cards in card dataformat. All 
printing is performed on the principal printer. The 
subroutine DISK1 is used to perform all disk I/O 
operations. 


PART 1: 
ENTRY POINT: FC000 (CHART A) 


The system device subroutines for the principal in- 
put and print devices and input data conversion are 
read into core and pertinent interrupt pointers are 
set. 

© The File Description card (D in column 72) is 
read and printed, and its fields are diagnosed for 
errors. 

0 LET/FLET searches are performed for input 

(if disk file input specified) and output files and 
calculated file sizes are checked against actual file 
sizes. 


INTERNAL SUBROUTINES: 


FC015 ~ The card read and/or print function in this 
section of the program is not specifically 
subroutinized, but it is the general card 
input function for the entire program. 

CONVT- Subroutine which converts a right-justified 
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EBCDIC coded decimal field of variable 
length to a one word binary value and ad- 
vances the field pointer beyond the field 
just converted. It accounts for leading 
blanks in a File Description (D) card field 
and causes immediate program termination 
when a D-card field error is detected. 

SEARC- Subroutine which checks the file name re- 
ferenced by the field pointer for validity, 
packs the file name, adds the disk data 
format indicator to the packed file name 
and performs the LET/FLET search for 
the file. 


ERRORS DETECTED; The-errors detected in part 
1 are F01, F02, F03, F06 and F08 (see Appendix 
F). 


PART 2: 
ENTRY POINT: FC016 (CHARTS B and C) 


o The Field Specification cards (S in column 72) are 
read and printed, each field specification is diagno- 
sed for errors and the specification information is 
compressed and saved. 

o If it is present, the Commercial Subroutine Pack 
age A3 format translation table (A in column 72) is 
read and printed and the 40 translation characters 
are saved. 

o The end-of-file card (/ * in column 1 and 2) is 
read and printed. 


Note: A general flowchart of the compress/save op- 
eration described above has been provided in Chart 
C although this operation is in fact specific to field 
type. See Appendix G for a description of each field 
type compression. 


INTERNAL SUBROUTINE: 

CONVT: Subroutine is described in part 1. 

ERRORS DETECTED: The errors detected in part 2 
are F04, F06 and F07. It is noted that only one F04 
message is printed for each field specification in 
error although more than one error may occur with- 
in a field specification. 

PART 3: 


ENTRY POINT: FC026 (CHART D) 


e Final error checking is performed and program 


Operator Response: The operator must enter one of 
the following codes. This response must be entered 
within approximately 3 minutes on a switched line. 


D - The operator could not correct the problem, 
Output from the central system is discon- 
tinued anda... CONTINUE command has to 
be transmitted to resume output. 


P - The operator has corrected the problem and 
the program will resume printer output. 


J59 PREOPERATIVE ERROR CODE XXXX OCR= 


Explanation; A preoperative error has occurred in 

the user-exit subroutine, or a logical disk drive has 
been referenced that was present during the job pro- 
cessing preceding the loading of the work station pro- 
gram, but that has later become not ready, The pre- 
operative error code as defined in Appendix A replaces 
XXXX, 


System Action: The system waits for the operator 
response, 


Operator Response: The operator must enter one of 
the following codes. This response must be entered 
| within approximately 21 seconds on a switched line. 


C - The operator has corrected the problem and 
the program will retry the operation. 


T - Exit to the Disk Monitor Supervisor, re- 
questing a terminating dump of the contents 
of main storage on the printer. 


X - Exit to the Disk Monitor Supervisor without 
writing the contents of main storage on the 
printer. 


1130 RJE MESSAGES 


J90 OCR= 


Explanation: The RJE program is ready to ser- 
vice an operator request. The operator indicates 
that he wants to communicate with the 1130 RJE 
Work Station Program by pressing the PROGRAM 
STOP key and then the PROGRAM START key (see 


Keyboard Procedures), 
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System Action: The system waits for the reply. 


Operator Response: The operator enters one of the 
following codes. The response must be entered 
within approximately 21 seconds for switched lines 
and also within the same time limit on a leased or 
multipoint line, if a line operation is in progress. 


A - Input is available at the card reader. 


B - Commands are to be submitted from the 
Keyboard, 


D - Discontinue receiving output. 
N - Ignore the request 


T - Exit to the Disk Monitor Supervisor, request- 
ing a terminating dump of the contents of core 
storage on the printer. 


J91 ESTABLISH LINE CONNECTION 


Explanation: This message is displayed only at an 
1130 work station on a switched line. The operator 
has to establish a connection with the central svstem. 


System Action: The system waits for a completed 
connection. 


Operator Response: The operator must perform 
the dial-up procedure to establish the connection 
with the central system (see ‘Operating Procedures! 


in the IBM 1130 Synchronous Communications 
Adapter Subroutines, Form C26-3706). 


J92 DATA rrrr0c0f TO DISK AT xaaa, bbbb 


Explanation: This message is received only when 

no user-written subroutine is present. The RJE pro- 
gram is writing a data set to disk. The message 
codes have the following meaning: 


rrrr - The logical record length in hexadecimal 
for fixed blocked or unblocked records. 


c - The type of control characters used, where 
c may have the following values: 


0 - No control characters are used. 

1 -~ System/360 machine code control 
characters are used. 

2- ASA control characters are used. 


f ~The OS/360 record format where f may have 
the following values: 


1 - Fixed unblocked records 

2 - Fixed blocked records 

3 - Variable unblocked records 
4 ~ Variable blocked records 

5 - Undefined records 


x ~The logical disk drive number 


aaa -The starting sector address of the data set 
in hexadecimal. 


bbbb -The length of the data set in disk blocks 
where there are 40 packed EBCDIC char- 
acters per block (16 disk blocks per sec- 
tor). The last block may not be filled, 


System Action: The user-exit data set is written 
on disk. The disk block length information part of 
the message is written when the data set is com-~ 
pleted; therefore, if a line error or a disk error 
occurs before the whole data set is received, this 
portion of the message remains blank. 


Operator Response: None 


J93 PROCEED 


Explanation: This message is displayed as a re- 
sult of a B reply to a J90 OCR= message. The work 
station is ready to receive commands from the 
Keyboard, 


System Action; The Keyboard select light is turned 
on and the program waits for input from the 
Keyboard, 


Operator Response: The operator enters the de- 
sired commands with an EOF after each command, 


After entering the last command, he enters a further 
EOF to indicate that he has finished using the Key- 
board, On a switched line, the operator has ap- 
proximately three minutes to enter each command, 


J94 PUNCHED OUTPUT 


Explanation: A SYSOUT data set is to be punched 
on a 1442 model 6 or model 7 card read punch unit, 
which is also used to read card input, and a non- 
blank card is at the punch station. 


System Action: The system waits for operator ac- 
tion. 


Operator Response: The operator may load blank 
cards in the punch and then press any character 


key or the space bar to resume processing, If he 
wants the output to be punched in the prepunched 
cards, he simply presses any character key or 
the space bar as described above. 

The operator must take action within approxi- 
mately 3 minutes to maintain line communication, 
If this time limit is exceeded a line error will 
occur. The RJE program is restarted according 
to the description under J51 LINE ERROR OCR=, 
The punched output will be received if an RJSTART 
command, a null statement and the cards to be 
punched are placed in the card reader and the op- 
erator then replies A to the line error message, 


NOTE: If punched output is to be sent to a 1442 
Card Read/Punch, which is also used for reading, 
all punched output should be specified as deferred. 


MESSAGES SENT TO WORK STATIONS 


For a detailed description of all messages sent to 
an 1130 work station from the central RJE system, 
see the Messages Sent to Work Stations section 

in IBM System/360 Operating System, Remote 


Job Entry (Form C30-2006). 
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USER EXIT INTERFACE 


The RJE program passes physical records to the 
user-writer output subroutine. The user’s subroutine 
has to save and restore index register 1 and 3 for 

the RJE program. The user must name the sub- 
routine entry point UEXIT and must store this rou- 
tine in the User Area (after deleting the resident 
module with the same name), In the RJE generation 
program the parameter UEXIT=USER should be 
specified, 


The user-exit subroutine gets control when output 
becomes available for it. Upon entry, the return ad- 
dress is stored in the first word of the subroutine. 
Index register 1 contains the address of a parameter 
list describing the output passed to the subroutine. 
This parameter list is aligned on an even word 
boundary. The format of this list is: 


m= ONC WOOL rep 












+0 “ 
+1 
+2 
+3 
+4 
45 


End of Data 


Starting Address: The address of the block received 
from the central system. This address has the 
following format. The 15 leftmost bits contain the 
core storage address and the rightmost bit gives the 
halfword, where 0 means left and 1 means right. 


Ending Address: The ending address+1 of the block 
received from the central system. The ending address 
is given in the same format as the starting address 
above, 


Logical Record Length: The length of logical rec- 


ords when fixed length records are passed, If vari- 
able or undefined records are passed, this word is 
zero, 


Control Character Type 


The type of control characters being used. 


0 - no control characters 
1 - System/360 machine code 
2 - ASA code 


Record Format: The code indicates the type 
of record.. 
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- Fixed unblocked 

- Fixed blocked 

- Variable unblocked 
- Variable blocked 

~ Undefined 


PwN eR 


a1 


End of Data: If zero, indicates end of data, 


The characters are packed two characters per 1130 
word, The blocks start on a word boundary, but they 
end in the middle of a word if they contain an odd 


number of characters. 


The user-written subroutine must use the same I/O 
subroutines as the 1130 RJE program for I/O devices. 
See following table. 


Device I/O Subroutine 

1132 Printer PRNT2 
1403 Printer PRNT3 
1442-6, -7 Card Read/Punch CARD1 
2501 Card Reader READ1 
1442-5 Card Punch PNCHI1 
Keyboard TYPEO 
Disk DISKZ 


NOTE: The user-written routine must return con~ 
trol to the RJE program within approximately 21 
seconds, in order to maintain the communications. 
JECL FOR THE 1130 WORK STATION 

JECL used for the 1130 work station is the same as 
that described under Job Entry Control] Language 
in IBM System/360 Operating System, Remote Job 
Entry (Form C30-2006), with one addition, The 
additional command allows the user to alternate the 
source of his input between disk input and card in- 
put. 








The format of this command is: 


| 1D | Operation | Operand 


DATA 


DMS_ - identifies the card as an 1130 JECL 
command 
es - is the JECL identifier and must be in 
columns one and two. 
DATA - must be preceded and followed by at 
least one blank 






DMs Jf,C 
{,D,xaaa_[, bbbb | 





C - indicates that input follows on cards. 


D - indicates that input follows on disk: 


x ~ is the logical disk drive number, 

aaa - is the disk sector address (hexa- 
decimal). 

bbbb - is a hexadecimal number speci- 


fying the length of the disk data 
file in blocks where there are 
two blocks per 80-character 
record (16 blocks per sector). 


If D is specified, the logical disk drive number 
and the sector address are required, but the block 


count is optional. When the block count is not 
specified , the user must indicate the end of data on 


disk by using a .. DATA command to transfer 
reading of data either to the card reader or to an- 
other disk area. The optional block count for disk 
data causes the RJE program to read data from 
disk until the specified number of blocks has been 
read, unless the end-of-file indicators are en- 
countered first. If the RJE program reads the 
specified number of blocks without detecting end of 
disk data, reading from disk terminates and read- 
ing continues from the card reader. 


Data on disk must start at the beginning ofa 
sector and continue on consecutive sectors if nec- 
essary. Each sector must contain eight 80-char- 
acter records in 8-bit code, except the last sector, 
which may be less than 320 words. 

The .. DATA command is not recognized between 
a // DD DATA statement and the corresponding 
/* in an OS/360 job. 


NOTE 1: Restart problems may occur, if jobs are 
chained on disk, i.e. , referenced by only one 
.. DATA command from the card reader, and a line 


error occurs which requires the work station to 
resubmit the RJSTART command and all unac- 
knowledged input. To avoid these problems, each 
job should be referenced by a.. DATA command 
from the card reader, 


NOTE 2: The definition of the cartridges to be used 
during Remote Job Entry must be specified in the 


JOB monitor control record. The logical drive 
number as specified in the JOB record must be 
used in the .. DATA command, 


END OF FILE INDICATORS 


The end of file indicator on disk is the... DATA 
command, which passes the reading to another 

disk filé or to the card reader. The end of file 

indicators on the card reader are the null com- 
mand and the .. RJEND command, 


NOTE: The null command and the .. RJEND com- 
mand have the same effect if they are read from 
idisk as if they are being read from the card reader, 
i.e. , reading is stopped both from the card reader 
and from the disk. 


GENERATION OF THE 1130 RJE WORK STATION 
PROGRAM 


The 1130 RJE Work Station Program operates under 
the supervision of the 1130 Disk Monitor System 
Version 2, The user stores the RJE package in 

the User Area using the Disk Utility Program 
(DUP). The user can then describe his 

work station configuration by executing a program 
named RJEO0. This program reads one data card, 
supplied by the user, which can contain the follow- 
ing parameters, 


LINE=P , UEXIT=(address 1, address2) 
LINE=S 
LINE=M(x, y) /UEXIT=USER 


* COMPRESS=NO 
COMPRESS=YES 
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LINE=P - Specifies that the work station is con- 
nected over a point-to-point leased line. 


LINE=S - Specifies that the work station is con- 
nected over a point-to-point switched line. 


LINE=M(x,y) - Specifies that the work station is 
connected over a multipoint line 
where: 


x - is the polling character. 
y - is the selection character. 


UEXIT-(address 1, address 2) 


address 1 - is the starting address on disk 
reserved for storing data directed to the 
user -exit. 


address 2 - is the ending address of the area 
reserved on disk for storing data directed 
to the user-exit, 


The addresses must be in the form xaaa 


where: 

x - is the logical disk drive number 
(from 0 to 4). 

aaa - is the sector address. 
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The area specified must be reserved by the 
user prior to RJE processing. 


UEXIT = USER - Specifies that the IBM-supplied 
user-exit routine is replaced by 


a user-written one, 


COMPRESS= NO — Specifies that elimination of 
blanks is not to be used, 


COMPRESS=YES - Specifies that elimination of 
blanks is to be used. 


The parameters can be in any order and if more 
than one of them is specified, they have to be 
separated by acomma, The default options originally 
assumed by the RJE program are a leased point-to- 
point contention line, no reserved disk space for 
user-exit output and no elimination of blanks. If the 
LINE and/or COMPRESS parameters are omitted, 
the program assumes the last parameters specified 
as the current line configuration. If the UEXIT 
parameter is omitted, no space is reserved on disk 
for user-exit data. 

The RJE00 program saves the information found 
in the parameters in a disk data file reserved for 
common constants used by the RJE program. 


APPENDIX A. MONITOR SYSTEM ERROR AND OPERATIONAL MESSAGES 


With the exception of the System Library Mainline Pro- 
grams, this appendix lists all Monitor System WAITs 
and messages. SYSUP, the DCOM update subroutine, is 
also available in the System Library. The errors for the 
user callable version of SYSUP are listed in the System 
Library Utility Subroutines section of the manual. All 
messages for stand-alone utilities are included in the 
writeups of the individual programs. 

System Loader, FORTRAN I/O and RPG object program 


errors cause the system to WAIT at $PRET. At the WAIT, 


bits 2 and 3 of the OPERATION REGISTER are on. FOR- 
TRAN I/O errors can be identified by the Fxxx code in the 
accumulator. RPG object program errors can be identi- 
fied by the Cxxx code in the accumulator. A $PRET WAIT 
also occurs when a system I/O device is required but is 
not ready (see Table 18). 


All error tables in this appendix are listed alphabet- 
ically by prefix letter. Unless otherwise noted, the 
operational and error messages are printed on the prin- 
cipal printer. All Monitor system control records are 
printed on the principal printer. 

The error tables in order of appearance are as 
follows. 


Program Name 


Assembler 

FORTRAN Compiler 

Disk Utility Program (DUP) 
System Loader 

FORTRAN I/O 

Satellite Graphic Job Processor 


Monitor Control Record Analyzer 
(MCRA) 


Supervisor Control Record Program 
SYSUP 

RPG Compiler 

Core Load Builder 


Auxiliary Supervisor 


ISS Subroutine 


RPG Object Program 





Address Error 

Attempt made to specify dis- 
placement field, directly or 
indirectly, outside range of 

-128 to +127. 


Condition Code Error 
Character other than +, -, Z, 
E, C, or O detected in first 
operand of short branch or 
second operand of long BSC, 
BOSC,.or BSI statement. 


Format Code Error 

Character other than L, I, X, 
or blank detected in col. 32 
or L or | format specified for 
instruction valid only in short 
form, or | format specified 
when not allowed. 


Label Error 
Invalid symbol detected in label 
field. 


Multiply Defined Label Error 
Duplicate symbol encountered 
in label field. 


Op Code Error 
Unrecognized op code 


ISS, ILS, ENT, LIBR, SPR, 
EPR, or ABS incorrectly placed. 


Relocation Error 

Expression does not have valid 
relocation. 

Non~absolute displacement 
specified. 

Absolute origin specified in 
relocatable program. 
Non-absolute operand specified 
in BSS or BES. 
Non-relocatable operand in 
END statement of relocatable 
mainline program. 

ENT operand non-relocatable. 


Syntax Error 

Invalid expression (e.g., invalid 
symbol, adjacent operators, 
illegal constant) 

tllegal character in record. 


Main program entry point not 
specified in END operand. 
Incorrect syntax in EBC state- 
ment (e.g., no delimiter in 
card column 35, zero character 
count). 

Invalid label in ENT or ISS 
operand. 


Tag Error 

Card column 33 contains 
character other than blank, 0, 
1, 2, or 3 in instruction 
statement, 


Undefined Symbol 
Undefined symbol in expression 


x- or y= coordinate, or both, not} 


within the specified range, or 
invalid operand. 

Character other than R or | in 
column 32; or character other 
than D or N in column 33, 


Invalid condition in a conditional 
branch or interrupt order. 





Table 7, Assembler Error Detection Codes 


Displacement set to zero 


Displacement set to zero 


Instruction processed as if L 
format were specified, unless 
that instruction is valid only in 
short form, in which case it is 
processed as if the X format 
were specified 


Label ignored 


First occurrence of symbol in 
label field defines its value; 
subsequent occurrences of 
symbol in label field cause a 
multiply defined indicator to be 
inserted in symbol table entry 
(Bit O of first word). 


Statement ignored and address 


counter incremented by 2. 
Statement ignored 


Expression set to zero 
Displacement set to zero 


Origin ignored 


Operand assumed to be zero 


Card columns 9-12 left blank; 
entry assumed to be relative 
zero 

Statement ignored 


Expression set to zero 


If illegal character appears in 
expression, label, op code, 
format, or tag field, additional 
errors may be caused. 

Card columns 9-12 left blank; 
entry assumed to be relative zero 
Card columns 9~12 not punched; 
address counter incremented 

by 17. 


Statement ignored 


Tag of zero assumed 


Expression set to absolute zero 


Operand set to zero. 


Field set to zero. 


Condition bits in first word 
set to zero. 
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ASSEMBLER MESSAGES AND ERROR CODES 


At the completion of an assembly, the following mes- 
sages are printed on the principal printer. 

XXX OVERFLOW SECTORS SPECIFIED 

XXX OVERFLOW SECTORS REQUIRED 

XXX SYMBOLS DEFINED 

XX ERROR(S) FLAGGED IN ABOVE ASSEMBLY 


If LIST DECK or LIST DECKE is specified, the error 
detection codes shown in Table 7 are punched in columns 
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18 and 19. 


For the first error detected in each state- 


ment the Assembler stores and then punches the code 
in column 18; the code for a second error is stored, 
overlaid by any subsequent errors, and punched in 


column 19. 


Thus, if more than two errors are de- 


tected in the same statement, only the first and last 
are indicated. These error detection codes will 


appear on the printout if the deck is listed. 

At the end of the assembly, a message is printed in- 
dicating the number of assembly errors detected in the 
source program (see above). Since no more than two 
errors are flagged per statement, the error count may 
exceed the actual number of flags. 

Assembler error messages are listed in Table 8. 


FORTRAN MESSAGES AND ERROR CODES 


Compilation Messages 


Near the end of the compilation, core usage information 
and the features supported (control records used) are 


printed out as follows: 


Table 8. Assembler Error Messages 


Error Number and Message 


AO1l MINIMUM W.S. NOT AVAILABLE... 
ASSEMBLY TERMINATED 


A02 SYMBOL TABLE OVERFLOW, .. ASSEMBLY 
TERMINATED 


A03 DISK OUTPUT EXCEEDS W.S., 


A04 SAVE SYMBOL TABLE INHIBITED 


AOS XXX ERRONEOUS ORG, BSS, OR EQU 
STATEMENTS IN ABOVE ASSEMBLY 


A06 LOAD BLANK CARDS 


AO7 *LEVEL CONTROL RECORD MISSING 
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FEATURES SUPPORTED 


EXTENDED PRECISION 
ONE WORD INTEGERS 
TRANSFER TRACE 
ARITHMETIC TRACE 
ORIGIN 

IOCS 


CORE REQUIREMENTS FOR XXXXX 
COMMON YYYYY VARIABLES YYYYY PROGRAM YYYYY 


where XXXXX is the name of the program designated in 
the *NAME control record or in the SUBROUTINE or 
FUNCTION statement, and YYYYY is the number of 
words allocated for the specified parts of the program, 


The following messages are printed in the case of 
successful and unsuccessful compilations respectively. 


END OF COMPILATION 


COMPILATION DISCONTINUE 


Available Working Storage is less than the 
number of overflow sectors specified plus one 
sector. 


The number of sectors of symbol table overflow 
is greater than the number of overflow sectors 
available. 


Intermediate output (pass 1) or final DSF output 
(pass 2) exceeds the capacity of Working 
Storage less the number of overflow sectors 
specified. 


With SAVE SYMBOL TABLE option specified: 
. Program is relocatable. 
. Program contains assembly errors. 
. Source program contains more than 100 
symbols, 


XXX is the number of ORG, BSS, BES, and/or 
EQU statements that were undefined in pass |. 
At the end of pass 1, these erroneous state- 
ments are printed on the principal printer. If 
the error was due to forward referencing, it 
will not be detected during pass 2. 


A card containing a non-blank column between 
1-71 has been read while punching a symbol 
table (“PUNCH SYMBOL TABLE specified for 
this assembly), 


The program listed above was assembled as an 
ISS subroutine without the required *LEVEL 
control record. 





Compilation Error Messages 


During compilation, a check is made to determine if cer- 
tain errors have occurred. 


If one or more of these 


Reduce the number of overflow sectors specified (number specified 
is zero if no *OVERFLOW SECTORS control record is used) or, 


If more than one drive is available on the system, use the //JOB 
record to specify System Working Storage on the cartridge with the 
most Working Storage available. 


Use an *OVERFLOW SECTORS control record to increase the 
number of overflow sectors for this assembly (maximum 32 sectors). 


If this error occurs during pass 1, the system will WAIT at location 
$PRET with /400E (25015 or /VOOE (1442) in the accumulator. Press 
PROGRAM START to continue the assembly in TWO PASS MODE. 


For pass 2, see options on AQ. 
1, Use ABS card and reassembly. 


2. Correct source program errors and reassemble, 
3. Reduce the number of symbols and reassemble. 


Where forward references have been attempted, they must be 
corrected before the program is reassembled. 


The system will WAIT at SPRET with /TOOF in the accumulator. 
Nonprocess run out (NPRO) the card just read. Place blank cards 
ahead of this card in the hopper, Press reader START and console 
PROGRAM START, 

NOTE: If the output is being punched on a 1442-5, a non-blank 


card cannot be detected. In addition, the punch may be damaged 
if an attempt is made to punch a hole where a hole already exists. 


Reassemble using *LEVEL control record. 


errors have been detected the error indications are 
printed at the conclusion of compilation, and no object 
program is stored on the disk, Only one error is de- 
tected for each statement. In addition, due to the inter- 
action of error conditions, the occurrence of some 
errors may prevent the detection of others until those 
which have been detected are corrected. With the ex- 
ception of the messages listed in table 8.1, the error 
message appears in the following format: 


CNN ERROR IN STATEMENT NUMBER XXXXX+YY 


NN is the error code number listed in Table 9. With the 
exception of specification statement errors, XXXXX is 
the last valid statement number preceding the erroneous 
statement and YYY is the count of statements from 
XXXXX to the statement that is in error. If the erron- 
eous statement has a valid statement number, XXXXX 
will be the statement in error and YYY will not be 
printed. 

For example: 


105 FORMAT (15, F8. 4) 
110 IF (A-B) 10,30, 20 
A =At1.0 
ABC B=B-2.0 (error C01) 
135 GOTO 105 (error C43) 


This example will cause the following error messages 
to be printed. 


C01 ERROR JIN STATEMENT NUMBER 110 + 002 
C43 ERROR IN STATEMENT NUMBER 135 


For specification statements, XXXXX is always 00000 
and YYY is the count of the number of specification 
statements in error. YYY is never 000, i.e., for the 
first error YYY is 001. Specification statements are 
not counted unless they contain an error. Statement 
numbers on specification statements and statement 
functions are ignored. NN is the error code. 

For example: 


1 DIMENSION C(10, 10) 

2 DIMENSION D(5, 5) 

3 DIMENSION E(I,6,6) (error C08) 
4 DIMENSION F(4, 4) 

5 DIMENSION G(2,2)) (error C16) 


This example will cause the following error messages 


to be printed. 


C08 ERROR AT STATEMENT 00000 + 001 
C16 ERROR AT STATEMENT 00000 + 002 


Table 8,1 


FORTRAN Error Messages 


ORIGIN IN SUB- 
PROGRAM 


INVALID ORIGIN 


WORKING STORAGE 
EXCEEDED 


PROGRAM LENGTH 
EXCEEDS CAPACITY 


SUBROUTINE INITI- 
ALIZE TOO LAP.GE 


C99 CORE REQUIREMENTS 
EXCESSIVE 


An ORIGIN control record was detected 
in a subprogram compilation. 


An attempt has been made to relocate 
a word at an address exceeding 7FFF 
(hexadecimal). 


The working storage area on disk is too 
small to accommodate the compiled pro- 
gram in disk system format. 


The error occurs when the program in 
internal compiler format is too large to 
be contained in core working storage, 
and the program must be reduced in size 
in order to compile. 


During compilation of Sub-programs a sub- 
routine initialize statement (CALL SUBIN) 


. is generated, 


The CALL SUBIN statement initializes all 


references to "dummy" variables contained 
within the subprogram to the appropriate 
core location in the calling program, 


The nature of the FORTRAN compiler 
limits the size of any statement in internal 
compiler format to 511 words. In the case 
of CALL SUBIN, the size is calculated by 
the following formula: 


S=5+ARG+N 


where ARG is the number of arguments in 
the subroutine parameter list and N is the 
total number of times the dummy argu- 
ments are used within the subprogram, 

S is the total size of the CALL SUBIN 
statement; if S ever exceeds 511, an 
error occurs and the above error message 
is printed. 


The error occurs when the total core 
requirements exceed 32767 words. 
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Table 9. FORTRAN Error Codes 


Error 
Number Cause of Error 


col Non-numeric character in statement number. 

C02 More than five continuation cards, or continuation card out of 
sequence. 

C03 Syntax error in CALL LINK or CALL EXIT statement. 

C04 Undeterminable, misspelled, or incorrectly formed statement. 

C05 Statement out of sequence. 

C06 Statement following STOP, RETURN, CALL LINK, CALL EXIT, 


GOTO, or IF statement does not have statement number. 


C07 Name longer than five characters, or name not starting with an 
alphabetic character. 


C08 Incorrect or missing subscript within dimension information 
(DIMENSION, COMMON, REAL, or INTEGER). 


Cog Duplicate statement number. 

C10 Syntax error in COMMON statement. 

Cl) Duplicate name in COMMON statement. 

C12 Syntax error in FUNCTION or SUBROUTINE statement. 

C13 Parameter (dummy argument) appears in COMMON statement. 

C14 Name appears twice as a parameter in SUBROUTINE or 
FUNCTION statement. 

C15 *IOCS control record in a subprogram. 

C16 Syntax error in DIMENSION statement. 

C17 Subprogram name in DIMENSION statement. 

C18 Name dimensioned more than once, or not dimensioned on first 


appearance of name. 
Clg Syntax error in REAL, INTEGER, or EXTERNAL statement. 
C20 Subprogram name in REAL or INTEGER statement or 


a FUNCTION subprogram containing its own name 
in an EXTERNAL statement. 


C21 Name in EXTERNAL that is also in a COMMON or DIMENSION 
statement. 

C22 IFIX or FLOAT in EXTERNAL statement. 

C23 Invalid. real constant, 

C24 Invalid integer constant, 

C25 More than 15 dummy.arguments, or duplicate dummy argument in 


statement function argument list. 


C26 Right parenthesis missing from a subscript expression. 

C27 Syntax error in FORMAT statement. 

C28 FORMAT statement without statement number. 

C29 Field width specification greater than 145. 

C30 In a FORMAT statement specifying E or F conversion, w greater 


than 127, d greater than 31,or d greater than w, where w is an 
unsigned integer constant specifying the total field length of the 
data, and d is an unsigned integer constant specifying the number 
of decimal places to the right of the decimal point. 


C31 Subscript error in EQUIVALENCE statement. 
C32 | Subscripteu variable in a statement function. 
C33 Incorrectly formed: subscript expression. 
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Error 
Number Cause of Error 


C34 
C35 


C36 


C37 
C38 
C39 
C40 
C41 


C42 


C43 


C44 


C45 


C46 


C47 


C48 


C49 


C50 


C51 


C52 


C53 


C54 
C55 


C56 
C57 
C58 
C59 
Cé0 
Cél 
C62 


Cé3 
C64 


Cé5* 





Undefined variable in subscript expression. 


Number of subscripts in a subscript expression, and/or the range 
of the subscript(s) does not agree with the dimension information. 






Invalid arithmetic statement or variable; or, ina FUNCTION | 
subprogram the left side of an arithmetic statement is a dummy 
argument or in COMMON. 







Syntax error in IF statement. 






Invalid expression in IF statement. 


Syntax error or invalid simple argument in CALL statement. 






Invalid expression in CALL statement. 









Invalid expression to the left of an equal sign in a statement 
function. 









Invalid expression to the right of an equal sign in a statement 
function. 







Inan IF, GOTO, or DO statement, a statement number is missing, 

invalid, incorrectly placed, or is the number of a FORMAT 

statement. nN 
a 






SS 


‘Syntax error in READ, WRITE, or FIND statement. 







*IOCS record missing with a READ or WRITE statement (mainline 
program only). 





FORMAT statement number missing or incorrect in a READ or 
WRITE statement, 






Syntax error in input/output list; or an invalid list element; or, in 
a FUNCTION subprogram, the input list element is a dummy 
argument or in COMMON. 






Syntax error in GO TO statement. 





Index of a computed GO TO is missing, invalid, or not preceded 
by a comma. , 






*TRANSFER TRACE or *ARITHMETIC TRACE control record present, 
with no *1OCS conirol record in a mainline program. 







Incorrect nesting of DO statements; or the terminal statement of 
the associated DO statement isa GOTO, IF, RETURN, FORMAT, 
STOP, PAUSE, or DO statement. 







More than 25 nested DO statements. 





Syntax error in DO statement. 






Initial value in DO statement is zero. 









In a FUNCTION subprogram the index of DO is a dummy 
argument or in COMMON. 





Syntax error in BACKSPACE statement. 





Syntax error in REWIND statement, 






Syntax error in END FILE statement. 


Syntax error in STOP statement. 





Syntax error in PAUSE statement. 






Integer constant in STOP or PAUSE statement is greater than 9999. 


Last executable statement before END statement is not a STOP, 
GOTO, IF, CALL LINK, CALL EXIT, or RETURN statement. 







Statement contains more than 15 different subscript expressions. 






Statement too long to be scanned, because of compiler expansion 
of subscript expressions or compiler addition of generated temporary’ 
storage locations. 







All variables are undefined in an EQUIVALENCE list, 


Table 9. FORTRAN Error Codes (continued) 


Error 
Number Cause of Error 


Variable made equivalent to an element of an array in such a 
manner as to cause the array to extend beyond the origin of the 
COMMON area. 


Two variables or array elements in COMMON are equated, or 
the relative locations of two variables or array elements are 
assigned more than once (directly or indirectly). 


Syntax error in an EQUIVALENCE statement; or an illegal 
variable name in an EQUIVALENCE list. 


Subprogram does not contain a RETURN statement, or a mainline 
program contains a RETURN statement. 


No DEFINE FILE statement in a mainline program that has disk 
READ, WRITE, or FIND statements. 


Syntax error in DEFINE FILE statement. 


Duplicate DEFINE FILE statement, more than 75 DEFINE FILES, 
or DEFINE FILE statement in subprogram. 


Syntax error in record number of disk READ, WRITE, or FIND 
statement. 


Defined file exceeds disk storage size. 


Syntax error in DATA statement. 


Names and constants in a DATA statement not in a one fo one 
correspondence, 


Mixed mode in DATA statement. 
Invalid hollerith constant in a DATA statement. 


Invalid hexadecimal specification in a DATA statement. 


Variable in a DATA statement not used elsewhere in the 
program or dummy variable in DATA statement. 


COMMON variable loaded with a DATA specification, 


DATA statement too long to compile, due to internal buffering. 


* The detection of a code 65, 66, or 67 error prevents any subsequent 
detection of any of these three errors. 


DUP MESSAGES AND ERROR CODES 


When a DUP function is performed without error, 
an informational message is printed on the principal 
printer. 





On a DEFINE VOI, one of the following messages is 
printed. 


ASSEMBLER VOIDED 
FORTRAN VOIDED 
RPG VOIDED 
On a DEFINE FIXED AREA, the message is as follows, 


CART ID XXXX CYLS FXA XXXX DBS AVAIL XXXKX 
FLET SECTOR ADDR XXXX 


where 


CYLS FXA XXXX is the decimal number of 
cylinders -1 in the Fixed Area. The additional 
cylinder is used for FLET. 


DBS AVAIL XXXX is the hexadecimal number of 
disk blocks remaining in the Fixed Area following 
the last program or data file. 


FLET SECTOR ADDR XXXX is the hexadecimal 
sector address of the first cylinder in the Fixed 
Area, i.e., the sector address of FLET. 


On a dump of LET or FLET, the printout is followed by 
a sign-off message. 


END OF DUMPLET/FLET 


All other DUP operations are followed by the following 
message. 


CART ID XXXX DB ADDR XXXX DB CNT XXXX 
where 


DB ADDR XXXxX is the hexadecimal starting address 
of the program or data file. 


DB CNT XXXX is the hexadecimal number of disk 
blocks being deleted, stored, or dumped. 


DUP error messages are listed in Table 10. 
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@eTable 10. DUP Error Messages 


DO1 
DO2 


DO03 
DO5 


D06 


D12 
D1i3 


118 


NAME IS NOT PRIME ENTRY 
INVALID HEADER RECORD TYPE 


INVALID HEADER LENGTH 


SECONDARY ENTRY POINT OR NAME 
ALREADY IN LET 


ENTRY POINT NAME ALREADY IN 
LET/FLET 


INVALID DISK I/O SPECIFIED 
INVALID FUNCTION FIELD (CC 1-12) _ 
INVALID FROM FIELD (CC 13-14) 


INVALID TO FIELD (CC 17-18) 


INVALID NAME FIELD (CC 21-25) 
INVALID COUNT FIELD (CC 27-30) 
oe FUNCTION DURING TEMPORARY 
JOB 


CARTRIDGE NOT ON SYSTEM 


CARTRIDGE ID OUTSIDE VALID RANGE 
(0001-7FFF) 


INVALID STOREMOD. SIZE OF 
REPLACEMENT EXCEEDS SIZE OF 
ORIGINAL 

PROGRAM NOT IN WORKING STORAGE 
INVALID SYSTEM OVERLAY SUBTYPE 
SPECIFIED 


COUNT FIELD TOO LARGE 


REQUIRED FORMAT NOT IN W.S. 
NAME NOT FOUND IN LET/FLET 
SOURCE NOT IN DSF 


INVALID RECORD TYPE 


PROGRAM OR DATA EXCEEDS 
DESTINATION DISK AREA 


INVALID CORE IMAGE CONVERSION 


LET/FLET OVERFLOW. A CORE DUMP 
FOLLOWS 


INVALID STORECI CONTROL RECORD 


STORECI CONTROL RECORDS 
INCORRECTLY ORDERED 


INCORRECT CONTINUATION 
ILLEGAL CHARACTER IN RECORD 
ILLEGAL FILE NUMBER 


The primary name of the program in Working Storage does not match the name on the DUP control record. 


One of the following is detected: a non-DSF program, a mispositioned header, foreign data, or an 
erroneous subtype. 


Word six of the DSF header is outside the range of 3-45. The causes are similar to D02, except for subtype. 


The specified secondary entry point name is already in LET, The name must be deleted before this subprogram 
can be stored. 


The specified name is already in LET/FLET. The name must be deleted before this program or data file can be 
stored. 


Disk routine code on STORECI control record (column 9) was other than 0, 1, N, Z, or blank. 
An invalid DUP function is specified in columns 1-12 of the DUP control record. 


Unacceptable characters are in columns 13 and 14 of the DUP control record. The FROM field specified 
is not valid with this DUP function. 


Unacceptable characters are in columns 17 and 18 of the DUP control record. The TO field specified is not 
valid with this DUP function. 


No name specified and one required, or syntax error in construction of name, 
Columns 27 through 30 are blank or include alphabetic characters. The count field requires a decimal number. 


This function is not allowed during the JOB T mode. 


Cartridge specified as TO or FROM cartridge was not specified on JOB record as being used in this job. 
Correct cartridge ID and retry. 


The replacement version of the program or data file is larger than the current version. The old version must 
be deleted before the replacement can be stored. 


The disk block count for the requested program in Working Storage is zero. The program is not in Working 
Storage. 


The system overlay subtype indicator (column 11) on a STORE control record is not in the range 0-9, 


The count field extends beyond column 30 of a DEFINE FIXED AREA control record or column 31 is not a 
minus sign. 


During a STOREMOD, the format of the LET/FLET entry does not agree with the format in Working Storage. 
The name specified on a DELETE or DUMP control record is not in LET/FLET. 


The format indicator of the FROM cartridge indicates that Working Storage on this cartridge does not contain 
a DSF program, 


An invalid type binary record has been read when storing from cards or paper tape. 


The number of disk blocks required to store a program or data exceeds the amount of space available in the 
specified TO field. 


The Core Load Builder has inhibited the continuation of STORECI. The specific reason has been printed by 
the Core Load Builder. 


A ninth sector of LET/FLET is required (or a seventh sector of LET on a non-system cartridge) for the LET/FLET 
entry. A deletion of a program with a LET/FLET entry of similar size is required before this program can be 
stored. 

A core dump follows this message since the affected cartridge may have to be reloaded. The dump allows the 
user to locate the condition that caused the error. Use of the affected cartridge is not recommended until the 
problem has been investigated. 


The STORECI control record read was not a LOCAL, NOCAL, FILES or G2250 record; 


ora mainline name was specified on a G2250 record. 


LOCAL, NOCAL, FILES, and G2250 were intermixed. All records of a given type must be loaded 
together. 


A comma at the end of the record indicated that it would be continued; however, it was not. 
An illegal character, probably a blank, appeared in the record. 


A non-numeric character appears in a file number, or the number is more than five characters long. 
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ILLEGAL NAME 


ILLEGAL CARTRIDGE ID 
SCRA BUFFER OVERFLOW 


NON-=BLANK CARD READ ENTER BLANK 
CARDS 


LAST ENTRY IN LET/FLET NOT IDUMY 


IDUMY ENTRY IN LET/FLET IS FOLLOWED 
BY A SECONDARY ENTRY POINT 


FIRST ENTRY IN LET/FLET SECTOR IS A 
SECONDARY ENTRY POINT 

FIXED AREA PRESENT 

ASSEMBLER NOT IN SYSTEM 
FORTRAN NOT IN SYSTEM 


INCREASE VALUE IN COUNT FIELD 
(CC 27-30) 


DEFECTIVE SLET 
FIXED AREA NOT PRESENT 


DECREASE VALUE IN COUNT FIELD 


RPG NOT IN SYSTEM 
CHECK SUM ERROR 


INVALID DISKZ CALL. A CORE 
DUMP FOLLOWS 


CARTRIDGE OVERFLOW 





A name is more than five characters long, or contains characters other than A-Z, 0-9, or $, or a name 
contains embedded blanks. 


The cartridge ID specified is not in the range/0001-/7FFF, or contains an illegal character. 


The Supervisor Control Record Area (SCRA) cannot contain all the LOCAL, NOCAL, FILES, or G2250 


information. 
A non-blank card has been read during a dump to a 1442-6 or -7. Place blank cards in the hopper and ready 


the card read punch. Press PROGRAM START. 


DELETE cannot find the end of LET or FLET. The header for this LET/FLET sector contains the count of unused 
words in this sector. This count should point to the last IDUMY entry; however, the entry to which it now 
points is nota IDUMY. 


The name on the DELETE control record points to a secondary entry point, The first entry in LET/FLET with a 
parse disk block count that precedes the secondary entry isa IDUMY. The primary entry is not in 
LET/FLET. 


The LET/FLET table is improperly constructed. The first entry is not a primary entry. 


The FORTRAN Compiler, RPG Compiler, or Assembler cannot he eliminated if a Fixed Area has been 
previously defined. 
The Assembler has previously been eliminated from the system. 


The FORTRAN Compiler has previously been eliminated from the system. 


The count field was read as a value of zero or one. The first DEFINE requires one cylinder for FLET plus one 
cylinder of Fixed Area. Thereafter, as little as one cylinder of additional Fixed Area can be defined. 


Cartridge must be reloaded. 


The control record specifies a decrease in the Fixed Area, or specifies Fixed Area as the des- 
tination, and there is no Fixed Area on the cartridge. 


There is insufficient Working Storage area available to allow the Fixed Area to be defined or expanded by the 
amount specified in the count field (cc 27-30). This message is preceded by a count of the number of 
cylinders available XXXX CYLS AVAILABLE. The count is in decimal. 


The RPG Compiler has previously been eliminated from the system. 


Checksum error in binary card or paper tape record, or binary cards are out of order. 


While performing a DUP function, an attempt has been made to read or write sector 0, or to read or write 
with a negative word count. This is a system error. 


A core dump follows this message since the affected cartridge may have to be reloaded. The dump allows the 
user to locate the condition that caused the error. Use of the affected cartridge is not recommended until 
the problem has been investigated. 


While performing a DUP function, an attempt has been made to read or 
write a sector beyond 1599 decimal. 


SYSTEM LOADER MESSAGES AND ERROR CODES ing message is printed, 
END RELOAD 


Table 11 lists the System Loader Errors. 


No informational messages are printed during an 
initial load. At the completion of a reload, the follow- 
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Table 11, System Loader Errors 


Error Number and Message Corrective Action 
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From Phases 1 and 2 


CHECKSUM ERROR 
INVALID RECC RD OR BLANK 
SEQ ERROR OR MISSING RECORDS 


ORG BACKWARD 


INITIALIZE THE CARTRIDGE 


From Phase 1} only 


INVALID DRIVE NC. 


ID SECTOR DATA INVALID 
CONFIG DECK ERROR 


FILE PROTECT ADDR TOO HIGH 


PHID RECORD ERROR 


INITIAL LOAD THE CARTRIDGE 


ERROR IN LOAD MODE RECORD 
PAPER TAPE ERROR 


INVALID SLET/RELOAD TABLE CHECKSUM 


From Phase 2 only 


FIXED AREA PRESENT 


SYSTEM DECK ERROR 


SCRA OVERLAY - STOP 


PHASE 1D OUT OF SEQUENCE 


PHASE MISSING 


PHASE ID NOT IN PHID RECORD 


PHASE ID NOT IN SLET 


DEFECTIVE SLET 
SLET FULL 
PROGRAM NOT PRESENT 


RELOAD TABLE FULL 


MISSING PHASE ID DUE TO DEFECTIVE 
SLET OR RELOAD TABLE 


MISSING SYSTEM |/O PHASE 


Follow procedure A or restart initial load. 


Follow procedure A or restart initial load, 


Follow procedure A or restart initial load. The missing record may be end-of-program record. 
See RELOAD for more information. 


Inspect the deck for records missing or out of sequence. Correct the deck and restart from the record 
in error, 


The cartridge ID cannot be found in DCOM because DCOM is defective or an attempt is being made to 
initial load a cartridge that has not just been initialized or has been impooperly initialized, Initialize 
and initial load the cartridge. 


Set all bit switches off. Set bit switches to select physical drive number and press PROGRAM START. 
All switches off - Drive 0 Switches 14, 15 on - Drive 3 
Switch 15 on - Drive | Switch 13 on ~ Drive 4 
Switch 14 on - Drive 2 


Initialize using DCIP or DISC and follow with an initial load. 


System configuration deck may be missing, out of place, or may contain error in one or more records. 
Correct the deck and restart load, 


This error will occur ona reload only. The last program in the User Area extends into the last two 
cylinders on the cartridge. These cylinders are required by the System Loader during a reload operation. 
The file protect address must be lowered before a reload can be accomplished. 


Follow procedure A or reload and restart, 


The ID sector indicates that this cartridge has not been loaded since initialization by DCIP or DISC. 
Only an initial load may be performed. 


Follow procedure A or restart load, 


The paper tape System Loader has found a word count greater than 54, This is probably due to incorrect 
sequencing of tapes, a faulty tape ora paper tape reader malfunction. Correct error and restart load. 


System Loader will ignore the checksum and continue if PROGRAM START is pressed. However, it is 
recommended that the cartridge be initialized and an initial load performed, 


Programs may not be added to a cartridge with a fixed area defined, Press PROGRAM 
START to restore the Resident Image and DCOM. 


A defective record follows the sector break record. Correct the deck and restart the initial load 
or continue the reload from the preceding sector break record. 


The cushion area used for allowing expanded or added phases has been used up. An initial load 
must be performed to store these phases on the cartridge. Press PROGRAM START to restore the 
Resident Image and DCOM. 


The Accumulator displays the phase ID that is out of sequence (from last card read), Place the 
decks in proper order and continue from the sector break record of the correct phase. 


Error occurred when phase ID (word 11) of last record read was processed. Inspect Load Mode 
record, PHID record and phase ID of previously loaded phase to determine which phase is now 
required. Locate missing phase, place deck in reader starting with sector break record of missing 
phase and continue. 


The Accumulator displays the extraneous phase ID. To ignore the phase press PROGRAM START. 
To load the phase correct the PHID record and restart the load. 


If the error occurred during Reload Table processing, the Accumulator displays the phase ID sought, 
and the Extension displays the ID of the phase requesting the SLET search, Press PROGRAM 
START to place zeros in the entry and process the next. 

If the Extension displays zeros, a phase is being added, and the phase which should precede it 
cannot be found, The accumulator displays the phase ID searched for. Press PROGRAM START to 
restore the Resident Image and DCOM. 


SLET is defective, Initialize the cartridge and perform an_ initial foad. 


The Accumulator displays the ID of a phase that may not be added because the SLET table is full. 
Press PROGRAM START to ignore the phase and continue. An initial load should be performed 
as SLET is probably defective. 


A program or phases of a program defined in the primary PHID record cannot be reloaded ynless the 
program is currently on the cartridge. Press PROGRAM START to ignore the phases of this program. 


If this error occurs before the * 81° record is read the Accumulator displays the ID of a phase which 
may not be loaded because the reload table is full. Press PROGRAM START to ignore the phase and 
continue, 


The Accumulator displays the ID of a phase listed in the reload table as a phase requiring SLET informa- 
tion but the phase itself does not appear in SLET. Initialize the cartridge and perform an initial load, 


All system |/O subroutines must be on the cartridge and in SLET. Initialize the cartridge and 
perform an initial load, 





Table 11. System Loader Errors (continued) 


Procedure A 


If cards are being read from a 1442 Card Read Punch: 


1, Lift the remaining cards from the hopper and press nonprocess run out (NPRO). 

2. Correct the card in error (first card nonprocessed out) and place the two nonprocessed cards ahead of the cards removed from the hopper. 
3, Place the deck back in the hopper. 

4, Press reader START. 

5. Press console PROGRAM START. 


If cards are being read from a 2501 Card Reader: 


1, Lift the remaining cards from the hopper and press NPRO. 

2. a. Correct the card in error (last card in stacker prior to NPRO) and place this card followed by the single nonprocessed card ahead of the cards 
removed from the hopper or, 

b. If the error occurred after the PHID card was read and before the type 81 card was read the System Loader is in double buffer mode. Correct 
the card in error (in this case the second from last card in the stacker when the error occurred) and place the last two cards from the stacker 
and the nonprocessed card ahead of the cards removed from the hopper. Note, however, that the last card in the stacker will be the next card 
processed since it is already in the double-buffer, 

Place the deck back in the hopper. 

Press reader START, 

Press console PROGRAM START. 


Ob Ww 
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Table 12, FORTRAN I/O Errors 


Guide for Job Control From an IBM 2250 Display 


Unit Attached to an IBM 1130 System, Form C27-6938. 


Accumulator 
Display Cause of Error 


No *IOCS card appeared with the mainline program and 
1/O was attempted in a subroutine. 









Logical unit defined incorrectly, or No *!OCS control 
record for specified 1/O device. 


Requested record exceeds allocated buffer size. 
.udllegal character encountered in input record,” 
Exponent too large or too smalf in input field. 
More than one E encountered in input field. 


More than one sign encountered in input field. 





More than one decimal point encountered in input field. 


Read. of output-only device, or Write of input-only 
‘ device. n 






~. 


Real variable transmitted with an | format specification or 
integer variable transmitted with an E or F format 
specification, 







a 











ItHlegal unit reference. 


G02 LINE ERROR 
Read list exceeds length of write list.* 


* 
Record does not exist for read list element. 


Maximum length of $$$$$ area on the disk has been 
exceeded. This error is unrecoverable and result in a 
call exit. 


File not defined by DEFINE FILE statement. 





SYNCHRONIZATION 


File record too large, equal to zero, or negative. 
ERROR 


Disk FIO (SDFIO) has not been initialized,e.g., there 
is no * OCS(DISK) record in the mainline program. 


Subscripting has destroyed the Define File Table. This 
occurs when a subscript exceeds the specification ina 
DIMENSION statement. 


*) Can occur in unformatted I/O operations. 


IKyxxxz message text 
THE SATELLITE GRAPHIC JOB 


FORTRAN I/O ERRORS PROCESSOR MUST RESTART 


When a FORTRAN I/O error occurs, the system WAITs 
at $PRET with an Fxxx error code displayed in the 
accumulator. Table 12 lists the FORTRAN I/O errors. 


SATELLITE GRAPHIC JOB PROCESSOR ERROR 
MESSAGES 


IKyxxxz message text 
THE SATELLITE GRAPHIC JOB 
PROCESSOR MUST TERMINATE 


Table 12A lists the error messages produced by the 
Satellite Graphic Job Processor (SGJP). The num- 
bered messages appear on the console printer; 

the messages preceded by IKyxxxz on the 2250 
screen. The corrective action is to be performed 

by the 1130 operator or 2250 user. SGJP is describ- 
ed in detail in the publication IBM System/360 Oper- 
ating System and 1130 Disk Monitor System: User‘s 
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Table 12A. SGJP Error Messages 


Error Number (if any) and Message 


G01 INITIALIZATION FAILURE 


Cause and Corrective Action 


No contact has been made with SGJP 
in the System/360 during an. attempt 
to initialize the telecommunications 
line via the GTNIT data transmission 
subroutine. 


Remedy 

Ensure that the System/360 
operator has issued a VARY ON com- 
mand for the 1130/2250 subsystem 
on which this error message was 
printed, Then, using the console 
keyboard, type in either an R to 
retry the operation or a C to can- 
cel SGJP. 


An attempt to transmit data to the 
System/360 was unsuccessful because 
of _an input/output error; standard 
retries were unsuccessful, 


Remedy 


Using the console keyboard, 
type in either an R te retry the 
operation or a C to cancel SGJP. 


The operation was not completed, 
either because both the System/360 
and the 1130/2250 subsystem were 
in read mode, or because the Sys- 
tem/360 terminated communication, 


Remedy 


Using the console keyboard, 
type in either an R fo retry the 
operation or a C to cancel SGJP, 


SGJP was terminated because an 
internal error occurred, If the error 
recurs, using the message code 
(IKyxxxz), refer to the publication 
IBM System/360 Operating System: 
Messages and Codes, Form C28-6631, 
for further explanation of the error 


condition, 


Remedy 
Perform the END function, 


which will cause the LOG ON frame 
to reappear. Perform the LOG ON 
operation again. 


SGJP must be terminated because an 
internal error occurred, If the error 
recurs, using the message code 
(IKyxxxz), refer to the publication 
IBM System/360 Operating System: 
Messages and Codes, Form C28-6631, 
for further explanation of the error 
condition, 


Remedy 
Perform the END function. 


This will return SGJP to the state it 
was in before the initial (CANCEL 
key) attention, 





SUPERVISOR MESSAGES AND ERROR CODES CART SPEC is specified cartridge ID 


The monitor Supervisor causes all Monitor system CART AVAIL is the available cartridge ID 
control records to be printed on the principal printer. 
During a DCOM update operation (i.e. , following PHY DRIVE is the physical drive number starting 


each JOB record or user call to SYSUP) the following with 0. 


message is printed. 
V2 MXX is the current version and modification level 


LOG DRIVE CART SPEC CART AVAIL PHY DRIVE ACTUAL XXK indicates that XXK is the physical core 
| size 
XXXX XXXX XXXX XXXX CONFIG XXK indicates that XXK is the configured 
core size by system generation, 
| v2 Mxx ACTUAL XXK CONFIG XXK 
a The logical drive may be different from the physical 
where drive, e.g., physical drive 0 may be defined as 
logical drive 2. 
LOG DRIVE is the drive number specified on the One line is printed for each physical drive on the 
JOB card (in the calling sequence of the SYSUP system. 
subroutine) Tables 13, 14, and 15 list Supervisor errors. 


Table 13. Phase 1, Monitor Control Record Analyzer Errors 


Error Number and Message Cause of Error 


INVALID MONITOR CONTROL RECORD A // record was not recognized as a valid Monitor control record. 


EXECUTION SUPPRESSED $NXEQ was set upon detection of an error that would prevent successful execution by the system. Execution 
is bypassed. 


DUP SUPPRESSED $NDUP was set upon detection of an error that would prevent successful DUP operation. DUP is bypassed. 


SYSTEM PROGRAM DETECTED MONITOR A system program has detected a Monitor control record when none was expected. The control record is 
CONTROL RECORD passed to the MCRA for processing. This situation often occurs as a result of a missing END statement in 
an Assembler language program. 


ILLEGAL CARTRIDGE ID A cartridge ID contains an illegal character or is a negative number. The job is aborted. 


PROGRAM VOIDED ASM, FOR or RPG required but the FORTRAN Compiler and/or Assembler and/or RPG compiler was either 
not loaded by the System Loader or was voided by a DUP DEFINE. 
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Table 14, Phase 2, System Control Record Program Errors (Phase 2 errors cause execution to be bypassed), 


M21 ABOVE RECORD NOT A SUPERVISOR The last record read is not a LOCAL, NOCAL, G2250 or FILES record. 
CONTROL RECORD 
M22 SUPERVISOR CONTROL RECORDS LOCAL, NOCAL, FILES, and G2250 records cannot be intermixed. 
INCORRECTLY ORDERED 
M23. INCORRECT CONTINUATION A comma at the end of the record indicated that the record would be continued; however, it was not. 
M24 = ILLEGAL CHARACTER IN RECORD An illegal character, probably a blank, appeared in the record. 
M25 = ILLEGAL FILE NUMBER A non-numeric character appears in a file number, or the number is more than five chargcters long. 
M26 ILLEGAL NAME A name is more than five characters long, or contains characters other than A-Z, 0-9, or $, or a name 
contains embedded blanks. 
M27 ILLEGAL CARTRIDGE ID The cartridge ID specified is not in the range /0001-/7FFF, or contains an illegal character, 
M28 SCRA BUFFER OVERFLOW The Supervisor Control Record Area (SCRA) cannot contain all the LOCAL, NOCAL, FILES, or 


G2250 record information. 


M29 ILLEGAL DISK SUBROUTINE REQUESTED A character other than 0, 1, N, Z, or blank appeared in column 19 of the XEQ card. 


M30 INVALID CHAR, IN G2250 OPTION A character cther than U, N, or blank appeared in column 13, 15, 17, 19 or 21 of the #G2250 control 
COLUMN record, 

M3] REQUESTED W.S. DR The requested cartridge has not been specified in the job record. 
NOT AVAIL. 


Table 15. SYSUP ~- DCOM Update Errors (SYSUP errors are also listed 
with the System Library Utility Subroutine SYSUP), 


Cartridge ID and Message 


XXXX 1S NOT AN AVAILABLE | A requested cartridge ID is not on any 
CARTRIDGE ID cartridge on the system, or the ID is 

not listed in #CIDN of the DCOM on 
the cartridge. 


CORE LOAD BUILDER ERRORS 















Except for the core load map described in the Program- 
ming Tips and Techniques section and messages 
R41-R45, the Core Load Builder prints no informa- 
tional messages, Table 16 lists Core Load Builder 
Error Messages, 
















XXXX tS A DUPLICATED 
SPECIFIED CARTRIDGE ID 


The cartridge ID was listed as appear- 
ing on more than one drive on the JOB 
card, 













XXXX 1S A DUPLICATED 
AVAILABLE CARTRIDGE ID 


A specified ID appears on more than 
one cartridge on the system. 












XXXX 1S NOT A SYSTEM 
CARTRIDGE 


An attempt has been made to specify a 
non-system cartridge as the master 
cartridge (logical 0). 
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RPG COMPILER MESSAGES AND ERROR NOTES 


Compiler Messages 


Near the end of the compilation, core usage informa- 
tion and literal parameters are printed in the following 
format. (See Sample Program 3 in Appendix J for an 


actual printout.) The relative address fiven can be 
used to compute the actual address of the indicator, 
field, litera, or routine the program is loaded, as 
follows: add the relative address to the execution 
address (as printed on the core map) and subtract 


hex 11 from the sum. The remainder, then, is the 


actual address. 


INDICATORS 


IND DISP... Indicators through H9 are printed for 


all programs 
(relative address) 


FIELD NAMES 


FIELD DISP L T Dupes 

(field (field (field (number of decimal 
name) length) type) positions) 
LITERALS 

LITERAL LENGTH TYPE  ODISP... 


KEY ADDRESSES OF OBJECT PROGRAM 


Name of Routine Hex DISP ... 


END OF COMPILATION 


Compilation Errors 


If Working Storage is exceeded, compilation is ter- 
minated and the following message is printed, 


WORKING STORAGE EXCEEDED 


If terminating errors are detected during compilation 


the following messages are printed. 


ERROR(S) IN COMPILATION 
END OF COMPILATION 


The program will execute if none of the errors 
detected were in the uncorrectable class, that is, 
no error note number was preceded by an asterisk 
(NOTE *XXX). 


Compiler error notes are printed as follows. 


1. As each statement is processed it is checked for 
invalid conditions. When an error is detected, 
the error note is printed on the line following the 
line in error in the columns reserved for program 
ID. 


NOTE XXX (xxx is a 3-digit error number. See 
Table 15. 1). 


2. The source program is checked for invalid file 
references (modified, unreferenced, multidefined) 
and error notes are printed as required. These 
notes are printed within or below the source 
listing in the following form. 


NAME NOTE XXX 


3. Following the printout of Indicators, Field Names 
and Literals, any errors on extended diagnostics 
are printed in the following format (the sequence 
number is a 4-digit number assigned to source 
program statements. Comments cards are not 
sequence numbered). Some error messages 
(e.g., 227 and 228), are printed together with the 
number of the statement following the error be- 
cause the error cannot be determined until then. 


Seq No. Error 
EXTENDED FILE DEF. 
EXT. AND/OR INPUT 
DIAGNOSTICS XXXX NOTE XXX 


EXTENDED CALCULA — 
TION SPECIFICATION 
DIAGNOSTICS XXXX NOTE XXX 


EXTENDED OUTPUT 


SPECIFICATION 
DIAGNOSTICS XXXX NOTE XXX 


4, After the extended diagnostics, a summary of all 
error messages is printed as follows. 
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DIAGNOSTIC MESSAGE EXPLANATIONS 


NOTE XXX Y ERROR MESSAGE 
(Y is the specification type.) 


or 


NOTE *XXX Y ERROR MESSAGE 

**kUNCORR ERR JOB TERM 

(* indicates that error is uncorrectable. The pro- 
gram will not execute. The ley addresses of the 
program will not be printed.) 


122.2 


All RPG Compiler error notes and their explanations 
are listed in Table 15,1. 


The term "specification is dropped" means that a sta- 
tement will not be further processed by the compiler; 
the tern 'no immediate action taken" means that the 
compiler will continue processing a statement, by 
looking for additional errors. 


@ Table 15,1 - RPG Compiler Error Notes (Part 1 of 17) 


NOTE ERROR MESSAGE CAUSE OF ERROR RESULT 


FILE TYPE COL 15 INVALID 


* 2 F PROC MODE COL 28 INVALID 
* 3 F REC ADDR COL 29-30 INVALID 
4 F REC ADDR TYPE COL 31 
INVALID. CORRECT ENTRY 
ASSUM 
) F TABLE FILE COL 16 REQ E 
COL 39. E ASSUM 
* 6 F FILE DESIGN INVALID WITH 
INPUT FILE 
€ F OF IND COL 33-34 INVALID 
BLK ASSUM 
8 F FILE TYPE COL 15 INVALID 
O ASSUM 
9 F MULT PRI FILES DEF. 
SEC ASSUM 
* 12 F FILE ORG COL 32 INVALID 
12 F EXT CODE COL 39 NOT BLK. 
BLK ASSUM 
13 F EOF COL 17 INVALID. 
E ASSUM 
14 F SEQ COL 18 INVALID 
A ASSUM 
15 ¥F FILE DESIG COL 16 NOT 
BLK, BLK ASSUM 
* 16 F CIN FILE TYPE COL 15 


INVALID WITH DEVICE 


‘File Type entry C requires 





File Type entry is not I, O, I is assumed 


U or C, or is blank. 





Blank is assumed, 





Mode of Processing entry is 
not L, R, or blank. 






Length of Record Address Field) 08 is assumed. 
(or key length) entry is invalid 


or is blank. 






Blank is assumed 
for sequential files 
K is assumed for 

ISAM files. 


Warning only. The correct 
value for the file type 
(col 32) is assumed. 








Extension Code entry must be E is assumed, 
E if File Designation entry is 


T (table file). 

File Designation entry col 16 
is not P, 8, R, C, or T with 
an input file (I in col 15). 


P is assumed, 






Overflow Indicator entry is Blanks are assumed, 
invalid for the device type 


specified. 







File Type entry is invalid with O is assumed, - 


a printer device in col 40-46. 


Secondary is assumed 
for all but first input 
file. 


Only one primary file (P in 
col 16) is allowed. Other 
input files are designated as 
secondary (S in col 16). 








File Organization entry is not Blank is assumed, 
I, numeric (1-9), or blank, or, 
two I/O areas are specified for 


a table File. 





Extension Code must be blank Blank is assumed. 


for output files. 







End of File entry is not E or E is assumed, 


blank. 





Sequence entry not A, D, or A is assumed, 


blank. 
File Designation entry is not Blank is assumed. 
blank for an output file. 







READ42 is assumed. 
card read punch in Device 
col 40-46, 
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REC ADDR FILE REQ 
E COL 39. E ASSUM 


FILE FMT INVALID. 
F ASSUM 


BLOCK LNG COL 20-23 NOT 


BLK. BLK ASSUM 


REC LNG COL 24-27 INVALID 
80 ASSUM 


U IN FILE TYPE COL 15 
INVALID WITH DEVICE 


COL 17-18 INVALID WITH 
PRINTER. BLK ASSUM 


MORE THAN 8 SEC FILES 
DEF 


OF IND COL 33-34 INVALID. 


BLK ASSUM 


EOF COL 17 NOT BLK WITH 
OUTPUT. BLK ASSUM 


EXT CODE 39 INVALID. 
E ASSUM 


FROM FILENAME COL 11-18 
INVALID 


FROM FILENAME COL 11-18 
INVALID 


FROM FILENAME COL 11-18 
INVALID 


CHAINING FLD COL 9-10 
INVA LID 


File Designation entry R 
(Record Address File) requires 
an E in Extension Code. 


File Format (Col. 19) is not F. 
1130 RPG uses fixed length re- 
cords only. 


Block Length must be blank 
for 1130 RPG. 


Record Length is improperly 
specified or is blank. 


File Type entry U requires 
disk I/O in Device col 40-46 


End-of- File and Sequence 
entries are invalid with a 
printer. 


The number of secondary files 
(S in col 16) exceeds the max- 
imum allowable 8. 


Overflow indicator not OF or 
OV. 


End of File entry must be 
blank with output files. 


Extension Code entry is not E 
or blank with input file. 


From Filename entry is miss-=: 
ing or not left-justified. 


From Filename entry was not 
defined on a File Description 
Specification. 


From Filename entry requires 
an E in Extension Code on the 
File Description Specification. 


Chaining Field Entry is not Cl, 
C2, or C3 for chaining file 
(same entry as col 61-62 of 
input spec). 


E is assumed. 


F is assumed. 


Blanks are assumed 


0080 is assumed, 


DISK is assumed, 


Blanks are assumed, 


8 is assumed. 


Blanks are assumed. 
Blank is assumed, 

E is assumed. 
Specification is 
dropped. 
Specification is 


dropped. 


Specification is 
dropped. 


Specification is 
dropped. 


RPG Compiler Error Notes (Part 3 of 17) 


ERROR MESSAGE 


SEQ COL 7-8 INVALID 


TO FILENAME COL 19-26 
INVALID 


TO FILENAME COL 19-26 
INVALID 


TO FILENAME COL 19-26 
INVALID 


COL 33-57 NOT BLK. 
BLK ASSUM 


COL 7-10 NOT BLK. 
BLK ASSUM 


COL 33-57 NOT BLK. 
BLK ASSUM 


COL 7-10 NOT BLK. 
BLK ASSUM 


TO FILENAME COL 19-26 
INVA LID 
TO FILENAME COL 19-26 


INVALID 


TO FILENAME COL 19-26 
INVALID 


TBL NAME COL 27-32 OR 
46-51 INVALID 


CAUSE OF ERROR 


Record Sequence entry must be 
two alphabetic or two numeric 
characters for chaining file 
(same entry as col 15-16 of in- 
put spec.). 


To Filename entry is missing 
or not left-justified on RAF or 
chaining type specs. 


To Filename entry was not 
defined on RAF or chaining 
type specs on a File Descrip- 
tion Specification. 


To Filename entry is not the 
same as the filename defined 
as a RAF or chaining type 
spec on a File Description 
Specification. 


Columns 33-57 of the Extension 
Specification must be blank for 
all chaining type specifications, 


Columns 7-10 of the Extension 
Specification must be blank 


for all RAF type specifications, 


Columns 33-57 of the Extensio 
Specification must be blank for 
all RAF type specifications. 


Columns 7-10 of the Extension 
Specification must be blank 
for all table type specifications 


To Filename entry is missing 
or not left-justified. 


To Filename entry was not 
defined on a File Description 
Specification. 


To Filename entry is not 
defined as an output file ona 
File Description Specification. 


Table Name entries missing 
or not left-justified. 46-51 
is required for alternating 
input formats only. 





RESULT 


Specification is 
dropped. 


Specification is 
dropped. 


Specification is 


dropped. 


Specification is 
dropped. 


Blanks are assumed. 


Blanks are assumed. 


Blanks are assumed. 


Blanks are assumed. 


Specification is 
dropped. 


Specification is 


dropped. 


Blanks are assumed. 


Specification is 
dropped. 
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NOTE 


SPEC 
TYPE 


ERROR MESSAGE CAUSE OF ERROR 


COL 27-29 OR 46-48 NOT TAB 


RESULT 


First three characters of table TAB is assumed, 


names must be TAB. 46-48 is 


122.6 


NO OF TBL ENTRIES COL 
33-35 NOT NUMERIC 


NO OF TBL ENTRIES COL 
36-39 NOT NUMERIC 


TBL ENTRY LGN COL 40-42 
OR 52-54 NOT NUMERIC 


PACKED ENTRY COL 43 OR 
55 INVALID, BLK ASSUM 


NUM DEC POS COL 44 OR 56 
INVALID 


TBL SEQ COL 45 OR 57 
INVALID, BLK ASSUM 


FORM TYPE COL 6 NOT VALID 


COL 47-65, 67-70 MUST BE 
BLK FOR 1130 RPG 


ISAM NUMBER OF RECORDS 
INVALID 


NO RPG CONTROL CARD, 
BLK ASSUM 


COL 11 INVALID. BLK ASSUM 


required for alternating input 
formats only, 


Number of table entries per 
record, These columns must 


contain a right~justified decimal 


number, 


Number of table entries per 
table. These columns must 


contain a right-justified decimal 


number. 


Length of table entry. These 
columns must contain a right- 
justified decimal number, 
52-54 is required for alter- 
nating input formats only. 


Packed entry is not P or blank, 
or invalid for specified device. 


Decimal Positions is not blank 
or a number, 


Sequence entry is not A, D, 
or blank, 


The next specification should 
have been an E or I Specifica- 
tion. 


Specified columns are not used 
with 1130 RPG except for ISAM 


load files. 


The number of records speci- 
fied for an ISAM load (col. 


47-52) is not numberic or left- 
‘justified. 


Warning only. A compilation 
and listing will be performed 
for this run, 


Type of run. ‘This entry should 


be B, D, or blank. 


10 is assumed, 


100 is assumed, 


8 is assumed, 


Blank is assumed, 


Zero is assumed, 


Blank is assumed, 


Specification is 
dropped, 


Blanks are assumed, 


99999 is assumed, 


Blanks are assumed 
for all entries. 


Blank is assumed, 
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SPEC 
vom ERROR MESSAGE CAUSE OF ERROR RESULT 


COL 17-20 INVALID. Stapling € entries are not blank, Blanks are assumed. 
BLK ASSUM 0, 1, or 2, as required, 
























H COL 21 INVALID. BLK ASSUM | Inverted print option entry is Blank is assumed, 


not I or blank. 








H COL 26 INVALID. BLK ASSUM | Alternating collating sequence Blank is assumed, 


entry is not A or blank, 












H PROG NAME COL 75-80 INV. RPGOBJ is assumed, 


RPGOBJ ASSUM 


Program Name entry on RPG 
Control Card is invalid. 




























C RSLT FLD COL 43-48 
REQUIRED 






Result Field name is required Specification dropped. 


but is missing. 








Cc RSLT FLD COL 43-48 MUST BE Blanks are assumed, 


BLK. BLK ASSUM 






Result Field must be blank for 
COMP, GOTO EXIT TAG, 
SETOF, SETON, CHAIN, 
BEGSR, ENDSR, EXSR, and 
EXCPT 









Numeric literal 1 is 
assumed, 


C FACT1 COL 18-27 INVALID Factor 1 requires a field name, 
label or literal to be used with 


the specified operation. 












Numeric literal lis 
assumed, 


C FACT2 COL 33-42 INVALID Factor 2 requires a field name, 
label, or literal to be used with 


the specified operation. 











00 is assumed for 
indicator in error, 


C RSLT IND COL 54-59 INVALID. 
00 ASSUM 





Resulting Indicator is not 01-99 
H1-H9, L1-L9, OF, or OV. 













C FACT1 COL 18-27 MUST BE 
BLK. BLK ASSUM 


Factor 1 entry must be blank Blanks are assumed, 
for the operation being per- 


formed, 













C FACT2 COL 33-42 MUST BE 
BLK. BLK ASSUM 






Factor 2 entry must be blank Blanks are assumed, 
for the operation being per- 


formed, 















C CTRL LEVEL COL 7-8 Blank is assumed, 


INVALID 


Control Level Col 7 is not L 
or blank, 











Cc DETAIL CALC DOES NOT 
PRECEDE TOTAL CALC 


LO is assumed, 





A detail calc, col 7-8 blank, 
follows a total calc, col 7-8 
LO-L9 or LR. 









Numeric literal lis 
assumed, 


C FACT1 COL 18-27 INVALID Factor 1 entry is not left- 


justified. 









Numeric literal lis 
assumed, 


Cc FACT2 COL 33-42 INVALID Factor 2 entry is not left- 


justified. 
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SPEC 
NOTE ERROR MESSAGE CAUSE OF ERROR 


FACT1 COL 18-27 INVALID 


RESULT 


Factor 1 entry is an improperly! Numeric literal lis 
stated literal or field name. assumed, 


















FACT2 COL 33-42 INVALID Factor 2 entry is an improperly| Numeric literal lis 


stated literal or field name. assumed, 






FACT1 COL 18-27 INVALID Factor 1 entry is a field name First six characters 


of more than six characters. are assumed, 












FACT2 COL 33-42 INVALID Factor 2 entry is a field name First six characters 


of more than six characters. are assumed, 















OPER CODE COL 28-32 
INVALID 


Operation code is missing or MOVE op code is 
unrecognizable. assumed, 












Col 7 is L but column 8 is not LO is assumed, 
0-9 or R. 


CTRL LEV COL 7-8 INVALID. 
LO ASSUM 











RSLT FLD COL 43-48 
REQUIRED 






Result Field entry is improper-| Specification dropped. 
ly defined, 






Field Length entry is blank, 0 is assumed for bla 
not numeric, or not right- 

justified; 

OR, Field Length entry con- 

tains an embedded blank. 


RSLT FLD LNG COL 49-51 
INVALID 


















DEC POS COL 52 INVALID Decimal Position entry is not 0 is assumed, 


blank or numeric. 











HLF ADJ COL 53 INVALID. 
H ASSUM 






Half adjust entry is not H or H is assumed, 
blank. 











RSLT IND COL 54-59 
REQUIRED 


A resulting indicator is re- Internal indicator is 
quired for this operation, assigned, 










IND COL 9-17 INVALID Indicator entry improperly Indicator is dropped. 


defined. 










STERL COL 71-74 INVALID Sterling entry not numeric or Blanks are assumed, 
sterling not defined on RPQ 

Control Card, This note can 

be printed by input or output 


specifications, 















Field Record Relation Indicator} Blanks are assumed. 
unrecognizable, 


FLD REC RELATION IND COL 
63-64 INVALID 










Indicator column 65-70 un- Blanks are assumed, 
recognizable, 


PLUS, MINUS, ZERO/BLK 
IND COL 65-70 INVALID. 
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RPG Compiler Error Notes (Part 7 of 17) 


SPEC 
NOTE] TYPE ERROR MESSAGE 


INPUT OR OUTPUT SPECS 
MISSING OR INVALID 


FORM TYPE COL 6 INVALID 


FILENAME COL 7-14 INVALID 


FILENAME COL 7-14 INVALID 


‘AND! CD OUT OF SEQ 


NO RECORD ID IN CARD 


BEFORE ‘AND! CARD 


'OR' CD OUT OF SEQ 


FILENAME COL 7-14 :-INVALID 


FILENAME COL 7-14 INVALID 
FILE AND FLD NAME ARE 
BOTH ON SAME SPEC 

SEQ COL 15-16 BLK, 


AA ASSUM 


SEQ COL 15-16 ALPHA SEQ 
AFTER NUM SEQ 


CAUSE OF ERROR 


Input or output specs are 
required, 


Form Type is notI, C, or O 
and column 7 does not contain 
an *, 


Filename entry is not defined, 


Filename entry is not correctly 
defined on the File Descrip- 
tion sheet, 


‘AND! card first card in deck, 
first spec after field name, or 
invalid file type. 


Record ID entry col 21-41 of 
Input Specification required in 
card before ‘AND! card, 


'OR! card first card in deck, 
first spec after field name, or 
invalid file type. 


Filename entry not left- 
justified. 


Filename entry begins with a 
numeric character, 


File and field names cannot 


both appear on same spec. 


| Sequence entry must be two 


alpha or two numeric charac- 
ters. 


Alpha sequence entries must 
appear before numeric sequence 


| entries. 


SEQ COL 15-16 IS INVALID 


NUMBER ENTRY COL 17 IN- 
VALID. N ASSUM 


Ascending numeric sequence 
is required, or the first entries 
must begin with 01. 


Sequence is numeric and the 
number entry column is not 
N or 1, 





RESULT 


Job is terminated, 


Specification is 
dropped, 


Specification is 
dropped, 
Specification is 


dropped, 


Specification is 
dropped, 


Specification is 
dropped, 


Specification is 
dropped. 


Specification is 
dropped. 


Specification is 
dropped, 


Filename entry is 
assumed, 


AA is assumed, 


Numeric sequence 
last used is assumed, 


Numeric sequence 
last used is assumed, 


N is assumed, 
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122,10 


RPG Compiler Error Notes (Part 8 of 17) 


SPEC 
NOTE] TYPE ERROR MESSAGE 


OPTION ENTRY COL 18 
INVALID. O ASSUM 


REC IDENTIFYING IND :COL 
19-20 INVALID. BLK ASSUM 


STKR SEL COL 42 INVALID. 
BLK ASSUM 


INVALID INPUT FILE 


POSITION ENTRY COL 21-24, 
28-31, 35-38 INVALID 


'NOT! ENTRY COL 25, 32 OR 
39 INVALID. N ASSUM 


C/Z/D ENTRY COL 26, 33 OR 
40 INVALID. C ASSUM 


FIELD NAME SPEC OUT OF 
SEQ 


FLD NAME COL 53-58 INVALID 


FLD NAME COL 53-58 INVALID 


FROM OR TO COL 44-51 
INVA LID 


FROM OR TO COL 44-51 
INVALID 


TO COL 48-51 LESS THAN 
FROM COL 44-47 


CAUSE OF ERROR 


Sequence is numeric and the 
option entry column is not O 
or blank, 


Record Identifying Indicator 
entry not 01-99, 


Stacker Select entry is: 

a) notl, 2, or blank, 

b) specified with 2 1/O areas, 
or 

c) is invalid with the reader 
specified. 


Input file has been specified 
as I, C, or Uincol 15 of File 
Description Specification and 
no input specs are found for 
that file. The file was not 
defined on an Extension Speci- 
fication, 


Position entry contains a non- 
numeric character, 


'NOT' entry not N or blank. 


Combined/Zone/Digit entry is 
not C, Z, or D. 


Field Name Type specification 
is first in deck, after invalid 
file name or invalid AND or 
OR spec, 


Field Name entry is not left- 
justified. 


Field Name entry beings with 
a non alpha character. 


FROM or TO is blank. 
FROM or TO entry contains a 
non-numeric character. 


Defined field length less than 1. 


RESULT 


O is assumed, 


Blanks are assumed, 


Blank is assumed, 


No immediate action 
taken, 


0 is assumed, 
N is assumed, 
Cis assumed. 


Specification is 
dropped. 


Specification is 
dropped, 


Specification is 
dropped. 
0001 is assumed, 


0 is assumed, 


1 is assumed, 
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RPG Compiler Error Notes (Part 9 of 17) 


SPEC 
NOTE} TYPE | ERROR MESSAGE CAUSE OF ERROR RESULT 


PACKED INPUT FLD INVALID 


PACKED ENTRY COL 43 INVALID. 


P ASSUM 


DEC POS COL 52 INVALID 


NUMERIC FLD GT 14 


CTRL LEV COL 59-60 INVALID 


CTRL LEV COL 59-60 INVALID 


MATCH OR CHAIN ENTRY COL 
61-62 INVALID 


MATCH OR CHAIN ENTRY COL 
61-62 INVALID 


MATCH ENTRY COL 61-62 NOT 
M1-M9 


RSLT IND COL 65-68 SPECIFIED 


IND IGN 


FOR NON-NUM FLD. 


ALPHA FLD GT 256 


STERL FLD INVALID 


STERL FLD INVALID 


REC ID SPEC OUT OF SEQ OR NO 


FIELDS FOR GIVEN REC 


PACKED FLD MUST BE NUMERIC 


FROM TO OR RECORD ID ZERO 


Packed input field length de- 
fined by FROM and TO fields 
is greater than 8, or packed 
field is invalid for input device. 


Packed entry is not P or blank. 


Decimal Positions is not 
numeric, 


Numeric field length is greater 
than 14 character. 


Column 59 not L. 


Column 60 not numeric. 


Column 61 not M or C, 


Column 62 is not numeric. 


Match entry is invalid. 


Plus and Minus indicators can- 
not be used with an alpha- 
meric field. 


Alphameric field length is more 
than 256 characters. 


Sterling field has more than 
3 decimal positions specified. 


Sterling field has no decimal 
positions specified. 


Warning only. Record ID spec 
is out of order, or no fields are 
indicated for a given record, 


Decimal Position entry col 52 
is blank, 


FROM, TO, or Position entries 
are zero. 


8 is assumed, 


P is assumed, 
0 is assumed, 
Field length of 14 


is assumed, 


Lin column 59 is 
assumed, 


1 in column 60 is 
assumed, 


M in column 61 is 
assumed, 


1 in column 62 is 
assumed, 


M9 is assumed, 


Indicator is ignored. 


Field length of 256 
is assumed, 
3 is assumed. 


0 is assumed, 


No immediate action 
taken, 


0 is assumed. 


0001 is assumed, 
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RPG Compiler Error Notes (Part 10 of 17) 


SPEC 
NOTE| TYPE ERROR MESSAGE CAUSE OF ERROR RESULT 


122,12 


KEY SIZE EXCEEDS REC LNG 


KEY LNG EXCEEDS 50 


FLD NAME BEGINS WITH 'TAB' 
BUT IS NOT TBL NAME 


FORM TYPE COL 6 INVALID 


INVALID OUTPUT SPEC 


FILENAME COL 7-14 INVALID 


H/D/T/E ENTRY COL 15 
OUT OF SEQ 


LINE TYPE COL 15 INVALID 
IND COL 23-31 MISSING ON 
'1OR' SPEC, 00 ASSUM 

IND COL 23-31 MISSING ON 


'AND! SPEC, SPEC DROPPED 


COL 32-70 MUST BE BLK ON 
LINE SPEC. BLK ASSUM 


FIELD NAME COL 32-37 IN- 
VALID. SPEC DROPPED 


IND COL 23-25, 26-28, OR 
29-31 INVALID 


Key length col 29-30 ISAM 
file) is greater than record 
length, 


Key length col 29-30 (ISAM 
file) is more than 50 charac- 
ters. 


Field name beginning with TAB 
is not a table name. Tables 
are defined on Extension Speci- 
fication col 27-32, 


Next Form Type entry should 


have been O. 


Col 6 of spec contains an O 
but col 7 does not have * or 
start of filename. There is 
no H/D/T/E specified in 
col, 15. The spec is not an 
AND or OR. 


Filename entry is missing, 
improperly defined, or un- 
defined. 


Output lines must be sequenc- 
ed as follows: H/D/T/E. 


Line Type entry must be H, 
D, T, or E. 


'OR' spec requires condition- 
ing indicators in col 23-31. 


‘AND! spec requires condi- 
tioning indicators in col 
23-31, 


File ID and CONTROL spec- 
ification requires col 32-70 
blank. 


Field Name entry is not left- 
justified. 


Output Indicator entry in- 
correct, 


No immediate action 
taken. 


50 is assumed, 


Specification is 
dropped, 


Specification is 
dropped. 


Specification is 
dropped. 


Specification is 
dropped. 


Specification is 
dropped, 

H is assumed, 
Indicator 00 is 
assumed, 
Specification is 


dropped. 


Blanks are assumed, 


Specification is 
dropped, 


Blanks are assumed. 
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RPG Compiler Error Notes (Part 11 of 17) 


CARD OUT OF ORDER 


CARD OUT OF ORDER 


OUTPUT FLD SPEC WITH 
ENTRIES IN COL 7-22 


LEAD OR CLOSE QUOTE COL 
45-70 MISSING. NO EDIT 


EDIT CODE COL 38 INVALID 
OR USED WITH ALPHA FLD. 
BLK ASSUM 


BLANK AFTER COL 39 IN- 
VALID, BLK ASSUM 


PACKED ENTRY COL 44 IN- 
VALID, BLK ASSUM 
COL 17-22 NON-BLK ON 'AND! 


SPEC. BLK ASSUM 


END POS COL 40-43 INVALID, 
SPEC DROPPED. 


LEAD OR CLOSE QUOTE COL 
45-70 MISSING, SPEC 
DROPPED 


FLD NAMED COL 43-48 GT 14 


MOVE ZONE OPER INVALID 


FIELD NAME UNDEF. 


'OR' or 'AND' card out of 
sequence. 


Field type spec with col 15 
blank is not preceded by a 
valid line type spec. 


Output field spec requires col 
7-22 blank, 


Edit word must be enclosed by 
apostrophes. 


Edit code used is invalid or 
an edit code has been specified 
with an alpha field, 


Blank after entry not B or 
blank. 


Packed entry not P or blank, 
field is not numeric or packed 
field is invalid. 


Col 17-22 not blank on ‘AND! 
spec, 


End Position in Output Record 
entry is blank, alpha, or is 
incompatible with constant or 
edit word, 


Constant must be enclosed by 
apostrophes, 


On an arithmetic operation, 
the field named in col 43-48 
is longer than 14 characters. 


Incorrect alphameric or numer 
ic fields have been specified for 
this Move Zone operation, 

Only the low zone of a numeric 

field can be referred to. 


The field name in Factor 1, 
Factor 2, or Result Field is 
undefined. 


Specification is 
dropped. 


Specification is 
dropped, 


Entries in columns 
7-22 are ignored, 


No editing is per- 


formed, 


Blank is assumed, 


Blank is assumed, 


Blank is assumed, 


Blanks are assumed, 


Specification is 
dropped. 


Specification is 
dropped. 


Specification is 
dropped. 


Specification is 
dropped, 


Specification is 
dropped, 
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liad 
NOTE ERROR MESSAGE CAUSE OF ERROR RESULT 


122,14 


FLD NAME UNREF 


FLD NAME MULT-DEF 


ARITH OPER SPECIFIED WITH 
ALPHA FLD 


COMP OPER SPECIFIED WITH 
ALPHA AND NUM FLD 


RSLT FLD LNG COL 49-51 
MAY NO BE LARGE ENOUGH 
FACT2 OR RSLT FLD NOT 


TBL NAME 


EXSR OPER CALLS ITSELF 


TESTZ OPER INVALID 


GOTO AND TAG OPERS ARE 
NOT IN SAME CALC SECTION 


Warning only, Field Name 
entry is unreferenced field or 
table name, 


Field name entry col 53-58 
Input Spec, col 43-48 Calc 
Spec, or col 32-37 Output Spec 
contains a multi-defined field 
name. The field name has 
been defined as alpha and 
numeric or as same field type 
with different lengths or as 
numeric fields with different 
decimal positions. 


Arithmetic operation specified 
in operation col 28-32 with an 
alphameric field specified in 
Factor 1, Factor 2, or Result 
field, 


Alphameric and numeric field 
being compared, Compare 
operations are valid only 
between like fields. 


Warning only, The result field 
may not be long enough to 
contain the true result. 


LOKUP requires table names 
in Factor 2 col 33-42, and 
Result Field col 43-48 (if 
specified). 


Name in Factor 2 is the name 
of the subroutine of which the 
EXSR operation is a part (a 
subroutine may not call itself). 


Result Field entry col 43-48 
is numeric. TESTZ tests for 
a high-order zone punch of an 
alpha field, 


Label of the TAG operation and 


No immediate action 
taken, 


No immediate action 
taken, 


Specification is 
dropped. 


Specification is 
dropped. 


No immediate action 
taken. 


Specification is 
dropped. 


Specification is 
dropped. 


Specification is 
dropped, 


Specification is 


the corresponding GOTO are not} dropped, 


in Detail or Total calcs. 





eTable 15,1 RPG Compiler Error Notes (Part 13 of 17) 


SPEC 
NOTE ERROR MESSAGE CAUSE OF ERROR RESULT 


HLF ADJ COL 53 IS IN- 
COMPATIBLE. BLK ASSUM 


LOKUP OPER INVALID DUE TO 
UNEQUAL LNGS 


MVR OPER NOT PRECEDED 
BY DIV 


MVR OPER PRECEDED BY DIV 
WITH HLF ADJ 


LOKUP OPER SPECIFIED WITH 
ALPHA AND NUM FLD 


HIGH AND LOW RSLT IND SPEC 
FOR LOKUP OPER 


NO PRIMARY FILE SPECIFIED 


FORM TYPE COL 6 INVALID 


FILENAME COL 7-14 INVALID 


MORE THAN 10 FILENAMES 
SPEC 


UNREF FILENAME 


O IN COL 15 INVALID WITH 
READO1 


DEVICE COL 40-46 INVALID 


FILENAME COL 7-14 MULT- 
REF 





The number of positions of the Blank is assumed, 
arithmetic result is less than 

or equal to the specified decimal 

positions of the result field; 

therefore, half-adjust cannot be 


performed, 


' Specification is 
dropped, 


Length of Factor 1 col 18-27 
and Factor 2 col 33-42 are not 
equal, 

There is no remainder to move, | MVR operation is 
ignored, 


MVR operation is 
ignored. 


Half-adjust effectively removes 
any remainder, 


Factor 1 col 18-27 and Factor 
2 col 33-42 must both be alpha 
or numeric. 


Specification is 
dropped, 


Low indicator is 
ignored, 


High and Low Resulting Indica- 
tors are both specified for 
LOKUP operation. 

No P in col 16 of File Descrip- | Job is terminated. 
tion spec. One file must be 

defined as primary. 


Specification is 
dropped, 


Next Form Type entry should 
have been F, E, orl. 


Specification is 
dropped, 


Filename incorrectly specified. 


Only the first 10 
are processed, 


Ten is the maximum number of 
files that can be processed in a 
program, 


No immediate action 
taken. 


Warning only. A file defined 
on the File Description spec 
has not been used in the progra 


Specification is 
dropped, 


Device entry READO1 requires 
an I in file type col 15. 
Device name is unrecognizable. | Job is terminated, 


No immediate action 
taken, 


The filename is specified on 
the Input or Output-Format 
Specifications more than once. 
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RPG Compiler Error Notes (Part 14 of 17) 


SPEC 
WOTE] TYPE ERROR MESSAGE 


FILENAME COL 7-14 MULT- 
DEF 


NO IND OR ONLY PREDEF 


IND SPEC FOR INPUT REC 


UNDEFINED RESULT IND 


UNREFERENCED IND 


FILE DESCR SPEC WITH E 
COL 39 NOT REF ON EXT 
SPEC 


FLD NAME COL 32-37 UN- 
DEFINED, SPEC DROPPED 


MATCH FLD LNGS IN- 
COMPATIBLE 


TBL NAME MULT-DEF 


SPLIT CHAIN FLDS IMPROPER 


SPLIT CTRL FLDS IMPROPER 


SPLIT MATCH FLDS INVALID 


MATCH FLD LNGS IN- 
COMPATIBLE 


CTRL FLD LNG INCOMPATIBLE 


CAUSE OF ERROR 


The same filename has been 
defined on two File Description 
specs. 


At least one indicator is 
required on Input Specs. 


Result indicator used but not 
defined, 


Warning only, Indicator spec~ 
ified but not used. 


File Description spec with E 
in col 39 is not used on an 
Extension spec. 


Name must be defined on Input 
or Calc spec. 


Sum of Matching Field lengths 
must be equal for all record 
types having matching records 
specified, or matching fields 
separated by fields conditioned 
on Field Record Relation 
indicators. 


Same name used for two tables, 
or the table has been defined 

as alpha and numeric or as 
same type with two lengths or 
decimal positions.. 


Split chain fields improperly 
specified. 


Split control fields improperly 
specified. 


Split matching fields are not 
allowed, 


All match fields of the same 
level must be the same length 
on all record types. 


The control field on a given 
control level must be the same 
length for all record types. 


RESULT 


Second specification 
is dropped 


Job is terminated, 
No immediate action 


taken, 


No immediate action 
taken. 


No immediate action 
taken. 
Specification is 


dropped. 


No immediate action 
taken, 


No immediate action 
taken. 


No immediate action 
taken. 


No immediate action 
taken. 


No immediate action 
taken, 


No immediate action 
taken, 


No immediate action 
taken, 
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SPEC 
NOTE} TYPE ERROR MESSAGE 


RPG Compiler Error Notes (Part 15 of 17) 


CHAIN FLD LNG 
INCOMPATIBLE 


CTRL FLD LNG GT 247 


FLD AREA GT REC SIZE 


PRINTER FILE BLK COL 
17-22, SPACE 1 AFTER 
ASSUM 


STKR SEL COL 16 INVALID. 
BLK ASSUM 
SPACE BEFORE, COL 1%, 


INVALID, 1 ASSUM 


SPACE AFTER, COL 18, 
INVALID. 1 ASSUM 


SKIP BEFORE, COL 19-20, 
INVALID, BLK ASSUM 


SKIP AFTER, COL 21-22, 
INVALID, BLK ASSUM 


PACKED FLD COL 44 NOT 
NUM. BLK ASSUM 


EDIT CODE COL 38 SPECIFIED 


ON ALPHA FLD. BLK ASSUM 


STERL SPECIFIED ON NON- 
NUM FLD, NO STERL ASSUM 


EDIT WD TOO SMALL 


CAUSE OF ERROR 


All fields using the same 
chaining indicator must be the 
same length on all record 
types. 


The sum of the control fields 
on all levels used on a record 
type cannot exceed 247 char- 
acters. 


Input field area size exceeds 
input record length. 


Entry required in col 17-22 
for printer carriage control, 


Stacker Select invalid for out- 
put device, or entry is in- 
correct (not 1 or 2). 


There is an entry in column 17 
but itis not 0, 1, 2, or 3. 


There is an entry in col 18 
but itis not 0, 1, 2, or 3. 


There is an entry in col 19-20 
but it is not 01-12 or with an 
1132 Printer the skip is to 
channel 7, 8, 10, or 11. 


There is an entry in col 21-22 
but it is not 01-12 or with an 
1132 Printer the skip is to 
channel 7, 8, 10, or 11. 


Output field is alpha. 


Alpha fields cannot be edited 


| with an edit code, 


Sterling option col 71-74 
requested for alpha field, 


Edit word is too small for 
field, 


RESULT 


No immediate action 
taken. 


No immediate action 
taken. 


No immediate action 
taken, 


Single space after is 


assumed, 


Blank is assumed, 


Single space before 
is assumed, 


Single space after is 
assumed, 


Blanks are assumed, 


Blanks are assumed, 


Blank is assumed, 


Blank is assumed, 


No sterling is assumed 


No immediate action 
taken. 
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eTable 15,1 


122,18 


RPG Compiler Error Notes (Part 16 of 17) 


SPEC 
NOTE] TYPE ERROR MESSAGE 


EDIT FLD NOT NUM 


DOLLAR SIGN INVALID 


BOTH CR AND - USED 


OUTPUT SPEC INVALID 


PAGE FLD IS DEF AS ALPHA 


FLD LNG GT END POS COL 
40-43. 


INDEX SEQ FILE ADDITION 


COL 66 INVALID 


INDEX SEQ KEY LNG COL 
29-30 INVALID 


INDEX SEQ KEY START POS 
COL 35-38 INVALID. 

1 ASSUM 

END POS GT RCD LNG 


‘ADD! COL 16-18 MUST BE 
SPEC 


FACT2 COL 33-42 INVALID 


CTRL LEV COL 7-8 INVALID. 
SR ASSUM 


ERROR IN SEQ OF ENDSR- 
BEGSR 


CAUSE OF ERROR 


Alpha fields cannot be edited. 


Both fixed and floating dollar 
sign have been specified. 


Both CR and - (minus) used 
for credit, 


Output specs are missing or 
are invalid for this program, 


PAGE defined on Input spec 
with no dec pos in col 52 of 
Input spec, 


Output field length is greater 
than the End Position in Out- 
put Record col 40-43 indicates. 


Col 66 must contain an A for 
ISAM ADD functions. 


Key Length entry col 29-30 is 
not numeric, 


Key field must start in position 
one of record, 


Output field length is greater 
than Record length (Col. 
40-43). 


‘ADD! must be specified if 
records are to be added to an 
ISAM file. 


Entry in Factor 2 must be 
filename described as a 
chained file on the File 
Description spec. 


Closed subroutine must follow 
total calcs. 


BEGSR operation must come 
first. 


RESULT 


No immediate action 
taken. 


No immediate action 
taken, 


No immediate action 
taken, 


Job is terminated, 


No immediate action 
taken. 


No immediate action 
taken, 


No immediate action 
taken. 
8 is assumed, 


0001 is assumed, 


No immediate action 
taken, 


Specification is 
dropped. 


No immediate action 
taken. 


SR is assumed, 


No immediate action 
taken, 
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SPEC 
NOTE], TYPE ERROR MESSAGE 


RPG Compiler Error Notes (Part 17 of 17) 


BEGSR OR EXSR FACTORS 
INVALID 


COL 49-59 MUST BE BLK WITH 


EXSR OR EXCPT. BLK ASSUM 


COL 9-17 MUST BE BLK WITH 
BEGSR. BLK ASSUM 


COL 49-53 MUST BE BLK WITH 


CHAIN. BLK ASSUM 

IND COL 56-57 MUST BE THE 
SAME AS IND COL 54-55, 
HIGH ASSUM 


CHAIN SPECIFIED WITH IND 
IN COL 58-59. BLK ASSUM 


PAGE FLD INVALID 


SKIP INVALID FOR CONSOLE 
PRINTER. BLK ASSUM 


CAUSE OF ERROR 


BEGSR-Subroutine name must 
appear in Factor 1 col 18 -27. 
EXSR-Subroutine name must 
appear in Factor 2 col 33-42, 


EXSR or EXCPT op codes 
require col 49-59 blank. 


BEGSR op code requires col 
9-17 blank. 


CHAIN op code requires col 


149-53 blank. 


The same indicator must be 
specified as high and low 
indicator. 


Equal indicator cannot be 


specified on chaining operation. 


Page field must be numeric. 
Field length must be 4 with 
zero decimal positions. 


Console Printer has not 
provisions for forms skipping. 
Col 19-22 must be blank. 


RESULT 


No immediate action 
taken, 


Blanks are assumed, 
Blanks are assumed, 
Blanks are assumed, 


High indicator assumed 
for high and low. 


Blanks are assumed. 


Field length of 4 and 
zero decimal positions 
assumed, 


Blanks are assumed, 
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Table 16, Core Load Builder Error Messages 


Error Number and Message Cause and Corrective Action 


ROO 


LOCALS/SOCALS OVERFLOW WORK 
STORAGE 


ORIGIN BELOW 1ST WORD OF MAINLINE 


DEFINE FILE(S) OVERFLOW WORK STORAGE 


NO DSF PROGRAM IN WORKING 


STORAGE 


INVALID LOADING ADDR FOR ILS02 


FILE(S) TRUNCATED (SEE FILE MAP) 


TOO MANY ENTRIES IN LOAD TABLE 


CORE LOAD EXCEEDS 32K 


LIBF TV REQUIRES 82 OR MORE ENTRIES 


XXXXX 1S NOT IN LET OR FLET 


XXXXX CANNOT BE A LOCAL/NOCAL 


XXXXX LOADING HAS BEEN TERMINATED 


XXXXX IS NOT A DATA FILE 


XXXXX COMMON EXCEEDS THAT OF ML 


XXXXX PRECISION DIFFERENT FROM ML 


There is insufficient Working Storage remaining to accommodate the LOCAL and/or SOCAL overlays required 
by the core load. 


Remedy 
Change the Working Storage ID on the JOB card to the drive with the most available Working Storage or 
Create more Working Storage on the present drive by deleting subroutines, subprograms, and/or data 
no longer required. 


The Core Load Builder has been instructed to load a word into an address lower than the first word of the 
mainline program. 


Remedy 
Remove the ORG statement that is causing the problem or, 
Origin the mainline program at a lower address. 


There is insufficient Working Storage remaining to accommodate even one record of the defined file(s). 


Remedy 
See ROO. 


No program in Working Storage. 


Remedy 
Place the desired program in Working Storage before calling the Core Load Builder. 


{LSO2 has been loaded into low COMMON. 
Remedy 


The mainline should be made longer so that I1LS02 will be loaded in a higher address. 
At least one defined file has been truncated, either because the previously defined storage area in the User 
or Fixed Area was inadequate, or because there is inadequate Working Storage available to store the file. 
Remedy ~ 

Redefine the User/Fixed Area file, or change the record count specification in the DEFINE FILE 

statement. 


There are references to more than (approximately) 375 different entry points in the core load by CALL and/or 
LIBF statements. 


Remedy 


Divide the core load into two or more links. 


The Core Load Builder has beén. instructed to load a word into a core address that exceeds 32767 (a negative 
number). The loading process is immediately terminated, since the Core Load Builder cannot process 
negative addresses. The error was probably caused by bad data being read from the disk. 


There are at least 82 different entry points referenced in the core load by LIBF statemenis. 


Remedy 


Divide the core load into two or more links. 


The program or data file name printed in the message cannot be found in LET or FLET. 


Remedy 


Store the program or data file. 
If the name cannot be explained, the program being loaded has probably been destroyed (bad data was 
read from the disk). 


The program named in this message is either a type which cannot appear on a *LOCAL control card, or is a 
LOCAL that has been referenced, directly or indirectly, by another LOCAL. 


The loading of the mainline program named in this message has been terminated as a result of the errors 
listed in the messages preceding this one. 


The area named in this message does not begin at a sector boundary, which implies that it is not a data file 
but a DSF program, and thus a possible error. 


Remedy 


Choose another area for the storage of this file. 
The length of COMMON for the subroutine named in this message is longer than that of the mainline 
program. 


Remedy. 
Define more COMMON for the mainline program. 


The precision for the subroutine named in this message is incompatible with that of the mainline program. 


Remedy 


Make the precisions compatible. 
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Table 16. Core Load Builder Error Messages (continued) 


Error Number and Message Cause and Corrective Action 1 


R22 


R23 


R39 


R40 


R41 


R42 


R43 


R44 


R45 


R46 


R47 


R64 


R65 


R66 


R67 
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XXXXX AND ANOTHER VERSION 
REF'ENCED 


XXXXX SHOULD BE IN THE FIXED AREA 
XXXX IS NOT CURRENTLY ON SYSTEM 


XXXX (HEX) = ADDITIONAL CORE 
REQUIRED 


XXXX (HEX) WORDS UNUSED BY CORE 
LOAD 

XXXX (HEX) 1S THE EXECUTION ADDR 
XXXX (HEX) = ARITH/FUNC SOCAL 

WD CNT 

XXXX (HEX) = FI/O, 1/0 SOCAL WD CNT 
XXXX (HEX) = DISK FI/O SOCAL WD CNT 


XXXX (HEX) = AN ILLEGAL ML LOAD ADDR 


XXXX (HEX) TOO MANY WDS IN COMMON 
XXXXX IS BOTH A LIBF AND A CALL 
XXXXX HAS MORE THAN 14 ENTRY POINTS 


XXXXX HAS AN INVALID TYPE CODE 


XXXX HAS AN INVALID GSB ADDRESS 







At least two different versions of the same ISS have been referenced, e.g., CARDZ and CARDO (FORTRAN 
uses CARDZ). If a disk subroutine is named in the message, it is possible that the XEQ record specifies one 
version (e.g., DISKZ) whereas the program references another (e.g., DISKN). (A blank in column 19 of 
the XEQ control record causes DISKZ to be used.) 


Remedy 


Change the references so that the core load uses only one version of any given I/O subroutine. 








The area named in this message is in the User Area. References in DEFINE FILE and DSA statements for 
*STORECI functions must be to the Fixed Area. 









onan i a cartridge ID appearing on an *FILES record. The cartridge was not on-line when the core load 
was built. ; 









If the core load was executed, /XXXX is the number of words by which it exceeded core before the Core 
Load Builder made it fit by creating special overlays (SOCALs). 





If the core load was not executed, /XXXX equals the number of words still required after the Core Load 
Builder has attempted to make it fit by using SOCALs. 


Remedy 


In the latter case, create more links or LOCALs. 








NOT AN ERROR. /XXXX is the number of words of core storage not used by this core load. 


NOT AN ERROR. This message follows every successful conversion from DSF to DCI when a core map has 
been requested. 






NOT AN ERROR, It has been necessary to use special overlays (SOCALs) and /XXXX is the length of the 
arithmetic/function overlay (see System Overlays). : 





NOT AN ERROR. It has been necessary to use special overlays (SOCALs), and /XXXX is the length of the 
FORTRAN I/O, I/O, and conversion subroutine overlay (see System Overlays). 





NOT AN ERROR. It has been necessary to use special overlays (SOCALs), and /XXXX is the length of the 
disk FORTRAN I/O overlay, including the 320 word buffer. 





/XXXX is the address at which the Core Load Builder has been requested to start loading the mainline 
program. However, this address is lower than the highest address occupied by the version of disk 1/O 
requested for this core load. 







If DISKZ has been requested, this message indicates an absolute mainline program starting at an odd foca~ 
tion. An ORG toan even location, followed by a BSS of an odd number of words has the same effect 
as an ORG to an odd location. 


Remedy 
@ Origin the mainline at a higher address, or 
@ Request a shorter version of disk 1/O, or 
@ Origin the mainline at an even boundary 







The length of COMMON specified in the mainline program plus the length of the core load exceeds core 
storage by /XXXX words. 







The subroutine named in this message either been improperly referenced, i.e., CALL instead of LIBF or 
vice versa, or has been referenced in both CALL and LIBF statements. 






This message usually means that the subroutine has been destroyed since a subroutine is not stored if it 
contains more than 14 entry points. 










The subroutine named in this message has either 
@ 1) Been designated on an XEQ record and is not a mainline program or, 2) 
@ Contains a type code other than 3 (subroutine), 4 (function), 5 (ISS), or 6 ILS), in which case, the 
subroutine has probably been destroyed. 







This error can also be caused by a DSA statement referencing a DSF program, or a CALL or LIBF referencing 
a program in DCI or DDF. 





The subroutine named has a Graphic Short Branch order address that is larger than 8191 after 
relocation, 





AUXILIARY SUPERVISOR ERRORS 


The Auxiliary Supervisor prints no informational mes- 
Table 17 lists Auxiliary Supervisor Error 


sages. 
messages. 


Table 17, Auxiliary Supervisor Errors 








INVALID FUNCTION 
CODE 

XXXXX 1S NOT IN 
LET/FLET 


XXXXX IS A DATA 
FILE 














Table 18, 


Device Causing WAIT 
1442 Card Read Punch 
or 1442 Card Punch 


K eyboard/Console 
Printer 


1134/1055 Paper Tape 
Reader/Punch 


Eror Number and Mesage 


The Auxiliary Supervisor received an 
illegal parameter. 


The Core Image Loader is unable to 


find the specified name in LET or FLET. 


The specified name cannot be executed 


since it is a data file, not a program. 


ISS Subroutine WAITs 


Contents of 
Accumulator 


ISS SUBROUTINE WAITS 


A device not ready or illegal function parameter causes 
a pre-operative WAIT at $PRET. The ISS subroutine 
WAITs are listed in Table 18. 










Cause of WAIT 


Device not ready or last card indicator on for read. 


IWWegal device, device not in system, 


illegal function, word count 


over +80, or word count zero or negative. 


Device not ready . 


Device not in system, 


illegal function, or word count zero or negative. 


Keyboard input expected (TYPEZ only). 


Device not ready. 


legal device, 


illegal function, word count zero or negative, or 


illegal check digit. 


2501 Card Reader /4000 Device not ready. 
/4001 INegal function, word count over +80, or word count zero or negative. 


Device not ready. 


Illegal device, device not in system, 


illegal function, attempt to write 


in file protected area, word count zero or negative, or starting 
sector identification over +1599. 

Write select/power unsafe. 

Same as /5001 except error caused by a Monitor program (DISK, 
(DISKN only). 

Disk error (DISKZ only). 


1132 Printer /6000 Device not ready or end of forms. 
6001 Iltegal function, word count over +60, or word count zero or negative. 
g , , g 


1627 Plotter 


1403 Printer 


123) F tical Mark 
Page idee 


/7000 
/7001 


Device not ready. 
Illegal device, device not in system, 
zero or negative. 


illegal function, or word count 


Invalid function code or invalid word count (all SCAT subroutines) . 

Invalid sub-function code for some transmit or receive operation 
(SCAT2 or SCAT3 only). 

Receive operation not completed or transmit operation not completed 
(SCAT1 only). 

Failure to establish synchronization before attempting to perform some 
transmit or receive operation, or attempting to receive before 
receiving INQ sequence (SCATI only). 


Device not ready or end of forms. 
[egal function, word count over +60, or word count zero or negative. 
Parity check, Scan Check or Sync Check. Press start to proceed. 


Device not ready. 
legal function. 


Feed check, 
not refeed. 

Feed check, 
last document. 
documents. 





last document processed. Clear jam, make ready, do 


last document processed. Clear jam, make ready, refeed 
If error was caused by double feed, refeed both 
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RPG OBJECT PROGRAM ERRORS 


RPG object program errors cause the system to 
WAIT with CXXX in the accumulator. Object pro- 
gram errors are listed in Table 18. 1. 


The object program errors can be divided into 
two categories, disk I/O and general purpose. Disk 
I/O errors are in the range C000 to CO5F. All 
others are between C100 and CFFF. Some of the 
disk I/O errors should not occur during normal 
processing. However, if incorrect object code is 
generated, or the object program is erroneously 
modified at object time, these errors may occur. 


126 


These errors are identified with an asterisk to the 
right of the CXXX number in Table 18, 1. 


When an RPG object program error occurs, the 
system operator must take specific action, Gener- 
ally this amounts to aborting the job by turning all 
console entry switches off and pressing console 
START. Certain errors however allow the operator 


_to ignore the error or retry the operation, This is 


accomplished by setting console entry switch 15 on, 
all others off, and pressing console START. In the 
case of a retry, the card in error must be placed 
back in the hopper before continuing, 


Incorrect operator action will cause the error 
WAIT to reoccur, 


Accumulator 


eTable 18,1 (Part 1 of 5) 


Type of 
Processing 


Sequential file: 
random processing, 


Sequential file: 
random processing, 


Sequential file: 
random processing. 


Sequential file: 
random processing. 


Sequential file: 
random processing. 


Sequential file: 
random processing. 


Sequential file: 
random processing, 


Sequential file: 
sequential processing, 


Record number is 
not within the as- 
signed limits of the 
file. 


Record size not 
within limits (maxi- 
mum 640 characters), 


Records per sector 
not maximum, 


No record found. The 
record number is not 
a positive number. 


Write before read 
on an update file. 


File accessed when 
not open, 


1/O buffer not on 
even-word boundary. 


Disk file is full. 


Action Required 


Terminate the job; 
or, 


bypass the record and 
continue processing; 
or, 


if chaining, correct 
the card and reinsert 
it in the input stream, 
or bypass the chaining 
record and read the 
next card, 


Terminate the job. 


Terminate the job. 


Terminate the job; 
or, 


bypass the record 
and continue pro- 
cessing; or, 


if chaining, correct 
the card and reinsert 
it in the input stream, 
or bypass the chaining 
record and read the 
next card, 


Terminate the job; 
or, 


bypass the record and 
continue processing. 


Terminate the job. 


Terminate the job. 


Terminate the job. 
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Console Entry 
Switch Settings 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START. 


15 on, all others 
off. Press console 
START, 


All off. Press 
console START. 


All off. Press 
console START. 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START. 


15 on, all others 
off. Press console 
START. 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START. 


All off. Press 
console START, 


All off. Press 
console START, 


All off. Press 
console START. 
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®Table 18,1 (Part 2 of 5) 


Accumulator 
Display 


126.2 


Processing 


Sequential file: 
sequential proces- 
sing, 


Sequential file: 
sequential proces- 
sing. 


Sequential file: 
sequential proces- 
sing, 


Sequential file: 
sequential proces- 
sing. 


Sequential file: 
sequential proces- 
sing. 


Sequential file: 
sequential proces- 
sing. 


Sequential file: 
sequential proces- 
sing, 


ISAM load proces- 
sing, 


ISAM load proces- 
sing, 


ISAM load proces- 
sing. 


ISAM load proces- 
sing, 


A write was re- 
quested on an input 
file. 


A read was requested 
on an output file. 


Record size not 
within limits (maxi- 
mum 640 characters), 


Number of records 
per sector not maxi- 
mum, 


File accessed when 
not open. 


1/O buffer not on 
even-word boundary. 


Write before read on 
an update file. 


Invalid type of pro- 
cessing on load 
function, 


Record size not 
within limits (maxi- 
mum 636 characters) 
or, 


number of records 
per sector not maxi- 
mum, 


Key length greater 
than maximum 


Index entry length 
not same as length 
computed from key 
length, 


Action Required 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job, 


Terminate the job. 


Terminate the job; 
or, 


bypass the record and 
continue processing, 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Console Entry 
Switch Settings 


All off. Press 
console START. 


All off. Press 
console START. 


All off. Press 
console START. 


All off, Press 
console START. 


All off. Press 
console START. 


All off. Press 
console START, 


All off. Press 
console START, 


15 on, All others 
off. Press console 
START, 


All off. Press 
console START, 


All off, Press 
console START, 


All off, Press 
console START. 


All off. Press 
console START. 





Table {8,1 (Part 3 of 5) 


Accumulator 
Display 


Type of : 
Processing Meaning 


ISAM load proces- 
sing. 


ISAM load proces- 
| ging. 


ISAM load proces- 
sing. 


ISAM load proces- 


| sing. 


ISAM load proces- 
sing 


ISAM load proces- 
sing. 


ISAM load proces- 
sing, 


ISAM add processing. 


ISAM add processing. 


ISAM add processing. 


ISAM add processing. 


ISAM add processing. 


Number of index 
entries per sector 
does not permit 
maximum number of 
records per sector, 


Prime data area is 
full, 


Index area is full, 


File accessed when 
not open. 


Index buffer not on 
even-word boundary. 


Prime data buffer 
not on even-word 
boundary. 


Input record out of 
sequence. 


Invalid type of pro- 
cessing on add 
function, 


File accessed when 
not open, 


Key length for this 
job not same as key 
length in file. 


Record length for 
this job not same as 
record length in file. 


Attempt was made to 
add record already 
on file. 


Action Required 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job; 
or, 


correct the card and 
reinsert it in the input 
stream, or bypass 

the record by reading 
another card, 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job; 
or, 


bypass the record and 
continue processing, 


Console Entry 
Switch Settings 


All off. Press 
console START. 


All off. Press 
console START. 


All off. Press 
console START, 


All off. Press 
console START, 


All off. Press 
console START. 


All off, Press 
console START. 


All off. Press 
console START. 


15 on, all others 
off, Press console 
START. 


All off. Press 
console START, 


All off. Press 
console START, 


All off. Press 
console START. 


All off. Press 
console START. 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START. 
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eTable 18,1 (Part 4 of 5/ 


Accumulator Type of 
Display Processing 


126.4 


ISAM add processing. 


ISAM add processing. 


ISAM file: sequential 
processing, 


ISAM file: sequential 
processing. 


ISAM file: sequential 
processing, 


ISAM file: sequential 
processing, 


ISAM file: sequential 
processing, 


ISAM file: sequential 
processing, 


ISAM file: sequential 
processing, 


ISAM file: random 
processing, 


ISAM file: random 
processing, 


ISAM file: random 
processing. 


ISAM file: random 
processing, 


Meaning 


Overflow area is full. 


Index buffer not on 
even-word boundary. 


Invalid type of pro- 
cessing on retrieve 
or update function. 


Index buffer not on 
even-word boundary. 


Prime data buffer 
not on even-word 
boundary. 


Key length for this 
job not same as key 
length in file. 


Record length for 
this job not same as 


record length in file, | 


File accessed when 
not open, 


Write before read on 
update file. 


Invalid type of pro- 
cessing on retrieve 
or update function. 


Index buffer not on 
even-word boundary. 


Prime data buffer not 
on oven-word bound- 


ary. 


Key length for this 
job not same as key 
length in file, 


Action Required 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job; 
or, 


bypass the record and 
continue processing, 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Terminate the job. 


Console Entry 
Switch Settings 


All off. Press 
console START, 


All off. Press 
console START, 


All off. Press 
console START, 


All off. Press 
console START. 


All off. Press 
console START. 


All off, Press 
console START, 


All off. Press 
console START. 


All off, Press 
console START, 


All off. Press 
console START, 


15 on, all others 
off. Press console 
START. 


All off. Press 
console START, 
All off, Press 
console START. 
All off. Press 


console START, 


All off. Press 
console START, 





eTable 18,1 (Part 5 of 5) 


Accumulator 
Display 


Type of 
Processing 


ISAM file: random 
processing. 


ISAM file: random 
processing. 


ISAM file: random 
processing. 


ISAM file: random 
processing. 


Record length for 
this job not same as 
record length in file, 


File accessed when 
not open, 


Write before read on 
update, 


Record not on file. 


Numeric records or 
matching fields out 
of sequence, or 
record is an unde- 
fined type. 


Halt switch set by 
object program 
(n=1-9) 


Write before read on 
combined file. 


Attempt to divide by 
zero, 


Table fields out of 
sequence, 


Action Required 


Terminate the job. 


Terminate the job. 


Terminate the job; 
or, 


bypass the record and 
continue processing. 


Terminate the job; 
or, 


bypass the record and 
continue processing. 


Terminate the jobs 
Or; 


bypass the record and 
continue processing. 


Terminate the job; 
or, 


set the halt switches 
off and continue pro- 
cessing. 


Terminate the job; 
or, 


bypass the record and 
continue processing, 


Terminate the job; 
or, 


continue processing. 
The quotient will be 
set to zero, 


Terminate the job. 


Console Entry 
Switch Settings 


All off. Press 
console START, 


All off. Press 
console START. 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START, 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START. 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START. 


All off. Press 
console START. 


15 on, all others 
off, Press console 
START. 


All off. Press 
console START, 


15 on, all others 
off, Press console 
START. 


All off. Press 
console START. 


15 on, all others 
off. Press console 
START. 


All off, Press 
console START. 
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APPENDIX B. CHARACTER CODE CHART 





EBCDIC IBM Card Code 1132 PTTC/8 Console 1403 


Binary Hex Rows Graphics and Control Printer He Printer 


EBCDIC U-Upper Case Hex 


0123 4567 12 1109 8 7-1 Sivan oOo 


Printer 


Punch Off 

Horiz.Tab 6D (U/L) 
Lower Case 6E (U/L) 
Delete 7F (U/L) 


e 


AURWNH—O 
NAOORWN oo 


Wor 
0 OW 000000000000 


Ommononnwma 
NOOR ON — 


Restore 4C (U/L) 
New Line DD(U/L) 
Backspace 5E tu L) 


NOOR ON —-— 


foe) mmmnmnwmnwon 
NOOR OND — 


Line Feed 3D (U/L) 
End of Block 
Prefix 


Oo ooo0ooocoooocooocooo°o0o0o 
NOOO RON HO 


ol wmnmnmwmwmwmnon 
NOU RON — 


Reader Stop OD(U/L) 
Upper Case OE (U/L) 
End of Trans. 


NOORON — — 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
a 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


wnnmnwmnnda 
NAnARWN — 





NOTES: Typewriter Output 
@ Tabulate 3) Carrier Return * Recognized by all Conversion subroutines 
@ Shift to black (4) Shift to red Codes that are not asterisked are recognized only by the SPEED subroutine 
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| seBcoic IBM Card Code 1132 
Graphics and Control Printer 

Names EBCDIC | u-Upper Case 
0123 4567 09 8 7-1 Subset Hex | L-Lower Case 


0100 0000 no punches 10 (U/L) 
0001 12 0 
0010 12 
0011 12 
0100 12 
0101 12 
0110 12 
Omni 12 
1000 12 
1001 
1010 
1011 
1100 
1101 
1110 
11 


Printer 
Hex 


Binary ee 


NOOSE WN = 


¢ 
+ (period) 


< 

( 

+ 
| 


MWMOMWDMMAG 
NQO RON — 


(logical OR) 


ww0ow7owownownwono 
NOOO WH — 


8 
8 
8 
8 
8 
8 
8 
8 


NEOM EWN — 


“4 (logical NOT) 


0 00 0 0 OO 


, (comma) 

% 

__ (underscore) 
> 

? 


oooo000o000 ;00000 C90000000°0 


wowowowow7owowov 
NOOO WON — 


(apostrophe) 


COmMDDmDwmMmod 
NOOR WOND = 
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EBCDIC IBM Card Code 1192 PTIC/8 Console 1403 


Ref i Graphics and Control Printer H ; . 
No. Binary Hex Rows Hex N EBCDIC jane ae Printer Printer 
0123 4567 1109 8 7-1 Subset Hex L-Lower Case 


1000 0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
Wd 


atekekosolosekokokeokokokokokore) 

oe) 

fo=) fooMocMecMeclocwoo) oO 
NOORON — — 
| 


NOOR OND — = 





foe) OMwMoOWMC foe) 


NOOB ON HS 


olekololeoekolokotoketoketooke) oo0ocoooocoococooocooco0o°0o°0o 
NOM BOND — 





i 
k 
| 
m 
n 
° 
Pp 
q 
r 
s 
t 
u 
Vv 
w 
x 
Y 
z 
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Ea EBCDIC IBM Card Code 1132 | PTTC/8 Console 1403 
Ref 
No. 


. Graphics and Control Printer Hex : 
Binary Rows P Nicines EBCDIC | U-Upper Case Printer Printer 
0123 4567 12 1109 8 7-1 Subset Hex | E-Lower Case Hex Hex 
co 
Cl 


192 1100 =0000 
193* 0001 
194* 0010 
195* 0011 
196* 0100 
197* 0101 
198* 0110 
199* 0111 
200* 1000 
201* 1001 
202 1010 
203 1011 
204 1100 
205 1101 
206 1110 
207 W111 


3C or 3E 
18 or IA 
IC or IE 
30 or 32 
34 or 36 
10 or 12 
14 or 16 
24 or 26 
20 or 22 


NOQOoakh WN — 
-~ZIOQA TONY 


7C or JE 
58 or 5A 
5C or 5E 
70 or 72 
74 or 76 
50 or 52 
54 or 56 
64 or 66 
60 or 62 


NOOB OND 
PFPOVPOZZEOHAST 


10 30 30 30 0 OO 
oo 0 0 CO 00 © © oo 


2 
3 
4 
5 
6 
7 
2 
] 
2 
3 
4 
5 
6 
7 


N<x<s<cuH 


10 30 10 30 50 0 SO 


o;}oooo0000o000000000 
NEO GN 


NOOR WN 
WOMNAOURWNH—O 


0 00 00 OO 
NEO Gr & GW bo 
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DISK FORMATS 


DISK SYSTEM FORMAT (DSF) 


Disk system format is the format in which absolute 
and relocatable programs (mainlines and subprograms) 
are stored on disk. Disk system format is shown in 
Figure 16. 


Program Header 
The format of words 1-12 of the program header is the 


same for all program types (see Program Types below). 
’ These words contain the following information: 


Word — Contents 
1 Zero 
2 Checksum, if the source was cards; 
otherwise, zero. 
3 Program type (bits 4~7), subtype (bits 0-3), 


and precision (bits 8-15) 

4 Effective program length, i.e., the 
terminal address in the program 

5) Length of COMMON (in words) 

6 Length of the program header (in words) 
minus 9 

7 Zero 


DSF Module 


a 


APPENDIX C. FORMATS 


Word Contents 


8 Length of the program, including the 
program header (in disk blocks) 
9 FORTRAN indicator (bits 0-7), number. of 
files defined (bits 8-15). 
10-11 Name of entry point 1 (in name code) 
12 Address of entry point 1 (absolute for type 
1 programs, relative for all others) 


The format of words 13-54 of the program header 
varies according to the program type. For program 
types 1 and 2, the program header consists of words 
1-12 only. 

For program types 3 and 4, the program header, 
in addition to words 1-12, contains the following 
information: 


Word, Contents 
13-14 Name of entry point 2 (in name code) 
15 Relative address of entry point 2 
16-17 Name of entry point 3 (in name code) 
18 Relative address of entry point 3 
19-51 Names and relative addresses of entry points 
4 through 14, as required, in the format 
shown above. The program header ends fol- 
lowing the relative address of the last entry 
point defined; hence, it is of variable length. 


For program types 5 and 6, the program header, in 
addition to words 1-12, contains the following information: 


ae ee Sa Pa a: AE Fe 


Program Header 
(12-54 words): 
See description. 


DSF Blocks 


DSF Block (2-9 Data words): 
Word 1 - Indicator Data Word 
Words 2-9 - Data Words 


Data Header (2 words): 
Word 1 - Loading address 
Word 2 - Number of words 

following to the next 
data header, plus the 
number of words (2) in 
the next data header 


Figure 16, Disk System Format 


Data Break - 


DSF Modules 


End-of-Program 

Data Header (2 words): 

Word 1 - Relative 
address of the next 


2. Start of a new sector available core 


location 
3. End of the program Word 2 ~ zero 


Caused by: 
1. ORG, BSS, BES, or DSA 
statement 
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Word Contents 





13 ISS number plus 50 
14 ISS number 


15 Number of interrupt levels required* 

16 Interrupt level number associated with 
the primary interrupt* 

17 Interrupt level number associated with 


the secondary interrupt* 


*The 1442 Card Read Punch is the only device requiring 
more than one interrupt level. 

For type 7 programs, the program header, in addi- 
tion to words 1-12, contains the associated interrupt 
level number in word 13. 


Program Types 


The program types are defined as follows: 


Type Type of Program 

1 Mainline (absolute) 

2 Mainline (relocatable) 

3 Subprogram, not an ISS, referenced by a 
LIBF statement 

4 Subprogram, not an ISS, referenced by a 
CALL statement 

5 Interrupt service subroutine (ISS) 
referenced by a LIBF statement 

6 Interrupt service subroutine (ISS) 
referenced by a CALL statement 

7 Interrupt level subroutine (ILS) 


Program Subtypes 


Subtypes are defined for program types 3, 4, 5, and 7 
only. When not used, the subtype indicator in the 
program header contains a zero, 

The program subtypes are defined as follows: 


Subtype Type Description 
0 3,4 In-core subprograms 
1 3 Disk FORTRAN I/O subroutines 
2 3 Arithmetic subroutines 
3 3 Non-disk FORTRAN I/O and "'Z"' 
conversion subroutines 
3 5 "Z"' device subroutines 
8 4 Function subprogram 
iL 7 Dummy ILS02, ILS04 
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DISK DATA FORMAT (DDF) 


Disk data format is the format in which data files are 
stored on the disk. Disk data format consists of 320 
binary words per sector. There are no headers, 
trailers, indicator words, etc. 


DISK CORE IMAGE FORMAT (DCI) 


Disk core image format is the format in which a core 
image program is stored on disk. A core image pro- 
gram consists of the Core Image Header, the mainline 
program, all subprograms referenced in the mainline 
program or other subprograms (except the disk I/O 
subroutine), the Transfer Vector, and any LOCALs and 
SOCALs required. Figure 5 (see STORECI under Disk 
Utility Programs) shows the layout of a core image 
program stored on disk. 


Core Image Header 


The Core Image Header contains the following infor- 
mation: 


Word Contents 
Relative 
Symbol Address 
@XEO1 1 Execution address of the core load 
@CMON 2 Length of COMMON (in words) 
@DREQ 3 Disk I/O subroutine indicator -~ /FFFF 
for DISKZ, /0000 for DISK1, /0001 
for DISKN 
@FILE 4 Number of files defined 
@HWET 5 Length of the Core Image Header (in words) 
@LSCT 6 Sector count of files in System WS 
@LDAD 7 Loading address of the core load 
@XCTL 8 Exit control address for DISK1/N 
@TVWC 9 Length of the transfer vector (in words) 
@WCNT 10 Length of the core load (in words) 
@XR3X 11 Setting for index register 3 during execution 
of the core load 
@ITVX 12 Contents of word 8 during execution 
13 Contents of word 9 during execution. 
14 Contents of word 10 during execution ITV 
15 Contents of word 11 during execution 
16 Contents of word 12 during execution 
17 Contents of word 13 during execution 
18-20 Reserved 
at Interrupt entry to 1231 ISS 
22 Interrupt entry to 1403 ISS 
23 Interrupt entry to 2501 ISS 
24 Interrupt entry to 1442 ISS IBT for ILSO4 
293 Interrupt entry to Keyboard/ 
Console Printer ISS 
26 Interrupt entry to 1134/1055 ISS 
@OVSW 27 Sector count of LOCALs/SOCALs 
@CORE 28 Core size of system on which core load built 


2930 Define File Table checksum work area, 


CARD FORMATS 


CARD SYSTEM FORMAT (CDS) 


Card system format is the format in which absolute 
and relocatable programs (mainlines and subprograms) 
are punched into cards. Each deck in card system for- 
mat consists of (1) a header card, (2) data cards, and 
(3) an end-of-program card. 


Mainline Header Card 
The mainline header card is the first card of every 


type 1 or 2 program in card system format. It con- 
tains the following information: 


Word Contents 
1 Reserved 


2 Checksum 
3 Type code (first 8 bits): 
0000 0001 ~- absolute 
0000 0010 -- relocatable 
Precision code (last 8 bits): 
0000 0001 -- standard 
0000 0010 -- extended 
0000 0000 -- undefined 
4 Reserved 
5 Length of COMMON, in words 
(FORTRAN mainline program only) 
6 0000 0000 0000 0011 


7 Length of the work area required, in 
words (FORTRAN only) 
8 Reserved 
9 Define File Count 
10-11 Name 


12 Relative Entry Point 
138-54 Reserved 


Subprogram Header Card 
The subprogram header card is the first card of every 


type 3 or 4 program in card system format. It contains 
the following information: 


Word Contents 
1 Reserved 


2 Checksum 
3 Type code (first 8 bits): 
0000 0011 -- to be called by a LIBF 
statement only 
0000 0100 -- to be called by a CALL 
statement only 


Word Contents 


Precision code (last 8 bits): 
0000 0001 -~ standard 
0000 0010 -- extended 
0000 0000 -~- undefined 
4-5 Reserved 
6 Number of entry points times three 
7-9 Reserved 
10-11 Name of entry point 1 (in name code) 
12 Relative address of entry point 1 
13-51 Names and relative addresses of entry 
points 2 through 14, as required 
52-54 Reserved 


ISS Header Card 


The ISS header card is the first card of every type 
5 or 6 program in card system format. It contains 
the following information: 


Word Contents 
1 Reserved 
2 Checksum 


3 Type code (first 8 bits): 
0000 0101 -- to be called by a LIBF 
statement only 
0000 0110 -- to be called by a CALL 
statement only 
Precision code (last 8 bits): 
0000 0001 -- standard 
0000 0010 -- extended 
0000 0000 -- undefined 
4-5 Reserved 
6 Number of interrupt levels required 
plus 6 
7-9 Reserved 
10-11 Subroutine name (in name code) 
12 Relative entry point address 
13-14 Reserved for parameters used by the 
1130 Card/Paper Tape System 


15 Number of interrupt levels required* 

16 Interrupt level number associated with 
the primary interrupt* 

17 Interrupt level associated with the 


secondary interrupt level* 
18-29 Reserved 
30 One 
31-54 Reserved 


*The 1442 Card Read Punch is the only device re- 
quiring more than one interrupt level. 
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ILS Header Card 


The ILS header card is the first card of every type 7 
program in card system format. It contains the 
following information: 


Word Contents 
1 Reserved 
2 Checksum 
3 Type code (first 8 bits): 
0000 0111 


Reserved (last 8 bits) 
4-5 Reserved 
6 0000 0000 0000 0100 
7-9 Reserved 
Reserved 
13 Interrupt level number 
14-54 Reserved 


Data Cards 


In all types of programs, data cards contain the instruc- 
tions and data that constitute the machine language pro- 


gram. The format of each data card is as follows: 
Word Contents 
1 The loading address of the first data word in 
the card. Succeeding words go into higher- 
numbered core locations. The relocation 
factor must be added to this address to obtain 
the actual load address. For an absolute 
program the relocation factor is zero. 
2 Checksum 
3 Type code (first 8 bits); 
0000 1010 


Count of data words, excluding indicator data 

words, in this card (last 8 bits) 

4-9 Relocation indicator data words (2 bits for 

: each following data word): 

00 -- absolute 
01 -- relocatable 
10 -- LIBF 
11 -- CALL 

10 Data word 7 

11-54 Data words 8 through 51 


End-of-Program (EOP) Card 


The end-of-program card is the last card of all pro- 
grams in card system format. It contains the follow- 
ing information: 
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Word Contents 


1 Effective length of the program. This number 
is always even and is assigned by the Assem- 
bler, FORTRAN Compiler, or RPG Compiler. 


2 Checksum 
3 Type code (first 8 bits): 
0000 1111 
Last 8 bits: 
0000 0000 
4 Execution address (mainline program only) 


5-54 Reserved 


Sector Break Cards 


Sector break cards are binary cards used by the 
System I.oader to cause programs or phases of 
programs to start loading at the beginning of a sec~ 
tor, The Monitor system uses Type 1 header cards 
as sector break cards, The sector break cards are 
not checksummed, Columns 5-72 of the sector break 
cards may contain information identifying the program 
phase being loaded, The card sequence number appears 
in columns 73-80, Columns 5-80 are punched in IBM 
Card Code, 

Type 1 cards are identified by a 1 punch in col- 
umn 4 (binary word 3). A Type 1 card indicates to 
the System Loader that it should check word 11 of 
the first data card that follows. For the Resident 
Image, Cold Start Program, and Phase 1 or the Sys- 
tem Loader, word 11 contains an absolute starting 
sector address. For all other Monitor programs 
or phases word 11 contains the phase ID. Recog- 
nition of a phase ID during initial load causes the 
System Loader to load the program or phase start- 
ing at the next sequential sector. During a reload, 
the phase ID is matched with the ID in SLET and the 
phase is loaded to the sector address indicated in 
SLET. 

On an initial load, phase 1 of DUP starts loading 
at sector 8. 

A type 2 (relocatable starting sector address 
sector break card is processed by the Monitor 
system as a Type 1 sector break card. 


CARD DATA FORMAT (CDD) 


Card data format is the format in which data files are 
punched into cards. Card Data format consists of 54 
binary words per card. Each binary word occupies 
1-1/3 columns. There are no headers, trailers, 
indicator words, etc. 

Card Data format is illustrated in Figure 17. 


CARD CORE IMAGE FORMAT (CDC) 


Card core image format is the format in which core 
image programs are punched into cards. Card core 
image format is identical to card data format; that is, 
one binary word occupies 1-1/3 columns and 54 binary 
words can be punched per card. 


PAPER TAPE FORMATS 


The paper tape formats -- paper tape system format 
(PTS), paper tape data format (PTD), and paper tape 
core image format (PTC) -- are analogous to the cor- 
responding card formats (see above). 

Two frames in paper tape (data or core image) 
format contain one binary word and are equivalent 
to 1-1/3 columns in card (data or core image) format. 
A data record in paper tape (data or core image) format 
differs from a data record in card (data or core image) 
format in that 2 special frames precede the data record; 
the first contains 7F1g, and the second contains the 
word count, one-half the number of frames in this data 


a 


6 caja cleo clea ciaiaoclealo clea ceiaio cla lo cello clelalo clal4 C/8}4/0 Cis 


PHP RPecPeser crea cKoemnc 


2 Elalgj2 ElAlst 

esosereeedadenade 3 Fie} 

213 abstel> afah i ida 15 6h s7t an : 
13m J74301 


Figure 17, Card Data Format 





record. A data record in paper tape (data or core 
image) format contains a maximum of 108 frames (54 
binary words) plus the 2 special frames. 

Information that would appear in columns 73-80 in 
card format must not appear in paper tape format. 


PRINT FORMAT 


PRINT DATA FORMAT (PRD) 


Print data format is the format in which DUP prints a 
DSF program, core image program, or data file on a 
print device (1403, 1132, or Console Printer). 

The Address which precedes each printed line is the 
core address of Word 1 on that line if a core image 
program is being printed. If a DSF program or data 
file is being printed, the Address is the address of Word 
1 on that line relative to the start of the DSF program 
or data file. Each Word printed consists of four hexa- 
decimal characters and represents one binary word. 
Figure 18 illustrates the DSF and core image print 
format. 


Word 54 


a 
© 
< 
3 
> 
= 
< 
a 
a 
° 
° 
2 
t 
° 
Ey 
= 
2 


3FI99999999 
13 14 75 76 17 7078 60 
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UA PR SYSUP 
¥eEQ SHS) HED HEKD aEKY 


CCCO 8043 0400 coco ocoo 
DCOO 0242 2C00 O1BC 6D00 
C1Ol 068A 88A4 0400 O10E 
C400 cO2C 1101 o0CO0 023E 
DCO2 0020 0035 0040 6LFB 
OOBF C400 cODs 1890 4460 
1890 4400 COF2 7400 OOEE 
1100 4C18 005C 4400 0244 
OODF 1010 C400 CODE D40C 
0864 1003 4C€28 4100 0078 
D400 COOA C054 0400 009A 
C047 C500 O0CB Coal 0600 
7101 70C9¥ C045 0400 000A 
7400 0044 0036 70FD 6100 
0084 0010 4440 0089 9500 
00C5 C004 co00 coco 00cB 
occo cook coco cCoBE oocc 
9800 AQOO COF4 0035 4000 
40E2 O7C C340 4040 C3Cl 
C540 0398 ¢CO00 4400 0201 


0100 C000 1890 4400 QOF2 
C600 O3FE 1010 0600 0464 


0410 0001 O3FE 0005 coco 0064 
0420 ca0o coou 0000 C000 
CART 10 3333 OB ADDR 19DB8 DB CNT 0035 


Disk block on sector. For Data Files, this position wil! always be 0 (Data Files must start on a sector boundary). 
Sector 


Core Image (note that the actual starting address is 2409) 


*DUMP FX PR CLMGE 
ACOR EREQ €4e] FEKZ2 2KHB REEG -REKS 


2400 

2410 occo cooG 8408 2000 oco00 = 62209 
2420 0000 §6€6©c000 60000 6.0000 cooo C000 
2430 coco.) 6©cccu 6coco) 6C000 ccoo acoc 
2440 FOFF oO2CcU C000 Ccco00 ocoo §6cco0 
2450 ccco adcu cood a0n0 co000 o000 
2460 ocoo) «co0u0 cooc 6C00 oo00 60000 
2470 ocoo ccco coco coce 0000 c0c0do 
2480 C640 ccco coco coco ocoo ccoo 
2490 ceco.)§6C00u §€6coco 60000 0000 § ccoo 
24A0 ccoo = o00Uu ac000 coco coco oco0 
2480 1ccoO CO0Ol C441 0440 7000) «6C1F4 
24CO0 3155 00S9 O68A 88A4 C400 OOAF 
2400 TOFC C076 C4CO O1LI C8E3 4480 
24E0 013B 0031 8BE6 OA2D 1044 0440 
24F0 0179 6902 C8DO0 4480 COAF 6500 


2500 6700 013C 6824 6500 FES4 C200 
2510 7104 TOFS 63FA C500 0623 18D0 
2520 1088 D7CO C110 FO4B 4€18 0095 
2530 CCCO C838 4056 C82C 4054 C82C 
2540 4C48 C826 4046 6BEC COER 9026 
2550 0010 coov coco cd00 co0oo0 0000 
2560 C018 70C8 7002 C028 OOAL 0009 
2570 ecco) }6©cocu 6c0Cco 6COCO 0000 6 cco0 
2580 ocoo codou O0N00 OO9E 8429 OA2D 
2590 00C4 OOFE 0004 0102 0004 0106 
25A0 O0coo cccO 6700 0138 6F0O0 CCOB 
2580 7002 7201 7082 4CCO 0038 0000 
25C0 0C40 0400 7400 OOB1 7006 C480 
2500 DCC? 7301 7401 0083 74FF O0OB2 
25E0 1084 90AF 4808 &0AE 80AE 0500 
25F0 l211 CAOZ cceco codood 0000 §6©Cc00 


2600 0000 o0ce condo 0000 a000c ccoo 
2610 0000 coco a0co Coco 0000 C000 
2620 occo «cceou ¢cCOO0 6c000 0000 93500 
2630 OFBL 6851 9832 4C€20 05F3 1090 
2640 09cB C400 0A48 0400 CA43  COTF 
2650 CCDD O6CO CA48 CODE Déco 

2660 OF63 C50U OFSE C061 1890 

2670 OAL3 ECOU OF35 C400 OF98 C400 
2680 $600 CFO8 4C18 QOA05S 7201 70F8 
CART 10 3333 CB ACER 1220 OB CNT 0620 





Figure 18, Dump of DSF and Core Image Program 
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APPENDIX D. DISK STORAGE UNIT CONVERSION FACTORS 


ae 5,112 8,192,000 
Data Words 320* ; ; 512,000 
Disk Block 25,600 
Sectors 1,600 
Tracks 400 
Cylinders 


*These follow the first actual! word of each sector, which is used for the address. 
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SECTOR 
ADDRESS 
BASE 10 


+00000 
+00008 
+00016 
+00024 
+00032 
+00040 
+00048 
+00056 
+00064 
+00072 
+00080 
+00088 
+00096 
+00104 
+00112 
+00120 
+00128 
+00136 
+00144 
+00152 
+00160 
+00168 
+00176 
+00184 
+00192 
+00200 
+00208 
+00216 
+00224 
+00232 
+00240 
+00248 
+00256 
+00264 
+00272 
+00280 
+00288 
+00296 
+00304 
+00312 
+00320 
+00328 
+00336 
+00344 
+00352 
+00360 
+00368 
+00376 
+00384 
+00392 
+00400 
+00408 
400416 
+00424 
+00432 
+00440 
+00448 
+00456 
+00464 
+00472 
+00480 
+00488 
+00496 
+00504 
+00512 
+00520 
+00528 
+00536 
+00544 
+00552 
+00560 
+00568 
+00576 
+00584 
+00592 
+00600 
+00608 
+00616 
+00624 
+00632 
+00640 
+00648 
+00656 
+00664 
+00672 
+00680 
+00688 
+00696 
+00704 
+00712 
+00720 
+00728 
+00736 
+00744 
+00752 
+00760 
+00768 
+00776 
+00784 
+00792 


SECTOR 
ADDRESS 
BASE 16 


0000 
0008 
00t0 
0018 
0020 
0028 
0030 
0038 
0040 
0048 
0050 
0058 
0060 
0068 
0070 
0078 
0080 
0088 
0090 
0098 
00A0 
00A8 
00B0 
0088 
00co 
oocs 
000 
00D8 
OOEO 
00E8 
OOFO 
OOF 8 
0100 
0108 
010 
0118 
0120 
0128 
0130 
0138 
0140 
0148 
0150 
0158 
0160 
0168 
0170 
0178 
0180 
0188 
0190 
0198 
01A0 
O1A8 
01B0 
01B8 
01c0 
01C8 
01D0 
01D8 
O1EO 
O1E8 
OlFO 
O1F8 
0200 
0208 
0210 
0218 
0220 
0228 
0230 
0238 
0240 
0248 
0250 
0258 
0260 
0268 
0270 
0278 
0280 
0288 
0290 
0298 
0240 
0248 
0280 
0288 
02C0 
02C8 
02D0 
02D8 
02€0 
02E8 
02FO 
02F8 
0300 
0308 
0310 
0318 


CYLINDER 
ADDRESS 
BASE 10 


+00000 
+00001 

+00002 
+00003 
+00004 
+00005 
+00006 
+00007 
+00008 
+00009 
+00010 
+00011 

+00012 
+00013 
+00014 
+00015 
+00016 
+00017 
+00018 
+00019 
+00020 
+00021 

+00022 
+00023 
+00024 
+00025 
+00026 
+00027 
+00028 
+00029 
+00030 
+00031 

+00032 
+00033 
+00034 
+00035 
+00036 
+00037 
+00038 
+00039 
+00040 
+00041 

+00042 
+00043 
+00044 
+00045 
+00046 
+00047 
+00048 
+00049 
+00050 
+00051 
+00052 
+00053 
+00054 
+00055 
+00056 
+00057 
+00058 
+00059 
+00060 
+00061 
+00062 
+00063 
+00064 
+00065 
+00066 
+00067 
+00068 
+00069 
+00070 
+00071 
+00072 
+00073 
+00074 
+00075 
+00076 
+00077 
+00078 
+00079 
+00080 
+0008] 
+00082 
+00083 
+00084 
+00085 
+00086 
+00087 
+00088 
+00089 
+00090 
+00091 
+00092 
+00093 
+00094 
+00095 
+00096 
+00097 
+00098 
+00099 


CYLINDER 
ADDRESS 
BASE 16 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000A 
000B 
000C 
000D 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
OO1A 
001B 
O001C 
001D 
OOTE 
OO1F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
0028 
002C 
002D 
002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
003A 
0038 
003C 
003D 
003E 
003F 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
0048 
004C 
004D 
004E 
004F 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
005A 
005B 
005C 
005D 
005E 
O05F 
0060 
0061 
0062 
0063 


SECTOR 
ADDRESS 
BASE 10 


+00800 
+00808 
+008 16 
+00824 
+00832 
+00840 
+00848 
+00856 
+00864 
+008 72 
+00880 
+00888 
400895 
+00904 
+00912 
+00920 
+00928 
+00936 
+00944 
+00952 
+00960 
+00968 
+00976 
+00984 
+00992 
+01000 
+01008 
+01016 
+01024 
+01032 
+01040 
+01048 
+01056 
+01064 
+01072 
+01080 
+03088 
+0109 
+01104 
+03112 
+01120 
401128 
401136 
+01144 
401152 
+01160 
+01168 
+01176 
+01184 
401192 
+01200 
+01208 
+01216 
+01224 
+01232 
+01240 
+01248 
401256 
+01264 
+01272 
+01280 
401288 
401296 
+01304 
+01312 
+01320 
+01328 
+01336 
+01344 
+01352 
+01360 
401368 
+01376 
+01384 
+01392 
+01400 
+01408 
+01416 
401424 
+01432 
+01440 
+01448 
+01456 
+01464 
+01472 
+01480 
+01488 
401496 
+01504 
+01512 
+01520 
401528 
+01536 
+01544 
401552 
+01560 
+01568 
401576 
+01584 
+01592 


APPENDIX E. DECIMAL AND HEXADECIMAL DISK ADDRESSES 


SECTOR 
ADDRESS 
BASE 16 


0320 
0328 
0330 
0338 
0340 
0348 
0350 
0358 
0360 
0368 
0370 
0378 
0380 
0388 
0390 
0398 
03A0 
03A8 
0380 
03B8 
03C0 
03C8 
03D0 
03D8 
03E0 
O3E8 
03F0 
O3F8 
0400 
0408 
0410 
0418 
0420 
0428 
0430 
0438 
0440 
0448 
0450 
0458 
0460 
0468 
0470 
0478 
0480 
0488 
0490 
0498 
04A0 
04A8 
04B0 
0488 
04CO 
04C8 
04D0 
0408 
O4E0 
04E8 
04FO 
O4F8 
0500 
0508 
0510 
0518 
0520 
0528 
0530 
0538 
0540 
0548 
0550 
0558 
0560 
0568 
0570 
0578 
0580 
0588 
0590 
0598 
05A0 
05A8 
0580 
0588 
05CO 
05C8 
05D0 
0508 
O5E0 
OS5E8 
O5FO 
O5F8 
0600 
0608 
0610 
0618 
0620 
0628 
0630 
0638 


CYLINDER 
ADDRESS 
BASE 10 


+00100 
+00101 
+00102 
+00103 
+00104 
+00105 
+00106 
+00107 
+00108 
+00109 
+00110 
+00111 
+00112 
+00113 
+00114 
+00115 
+00116 
+00117 
+00118 
+00119 
+00120 
+0012) 
+00122 
+00123 
+00124 
+00125 
+00126 
400127 
+00128 
400129 
+00130 
+00131 
400132 
+00133 
+00134 
+00135 
400136 
+00137 
+00138 
+00139 
+00140 
+00141 
400142 
+00143 
+00144 
+00145 
+00146 
+00147 
400148 
+00149 
+00150 
+00151 
+00152 
+00153 
+00154 
+00155 
+00156 
+00157 
+00158 
+00159 
+00160 
+00161 
+00162 
+00163 
400164 
+00165 
+00166 
+00167 
+00168 
+00169 
+00170 
+00171 
+00172 
+00173 
+00174 
+00175 
+00176 
+00177 
+00178 
+00179 
+00180 
+0018] 
+00182 
+00183 
+00184 
+00185 
+00186 
+00187 
+00188 
+00189 
+00190 
+00191 
400192 
+00193 
+00194 
400195 
400196 
+00197 
+00198 
+00199 


CYLINDER 
ADDRESS 


BASE 16 


0064 
0065 
0066 
0067 
0068 
0069 
006A 
006B 
006C 
006D 
O06E 
OO6F 

0070 
0071 

0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
007A 
0078 
007C 
007D 
007E 

007F 

0080 
008) 


0083 
0084 
0085 
C086 
0087 
0088 
0089 
008A 
o08B 
008C 
o08sD 
O08E 
O08F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
009A 
0098 
009C 
009D 
009E 
OO9F 
O0A0 
OOAI 
OOA2 
OO0A3 
OOA4 
O0A5 
O0AS 
00A7 
OOA8 
. OOAP 
OOAA 
OOAB 
OOAC 
O0AD 
OOAE 
OOAF 


0081 
00B2 


0083 


OOBS 
00B7 


00B9 
OOBA 
008B 
OO0BC 
OOBD 
OOBE 
OOBF 
00co 
00C1 
00c2 


00c4 
00cs 
00C6 
00C7 
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APPENDIX F. MONITOR SYSTEM LIBRARY LISTING 


Type and sub-type are defined in Appendix C. 


System Library Programs Names Type and Subroutines Required ID Field 
Sub-type (ce 73 - 75) 


MAINLINES 


Disk Maintenance Programs 


Disk Initialization 

Print Cartridge ID 

Change Cartridge ID 

Disk Copy 

Writer Sector Addresses in WS 
Delete CIB 

Dump System Location 
Equivalence Table 

System Maintenance 


Paper Tape Utility 


Keyboard or 1134 Input/Console Printer 
or 1055 Output 


SUBROUTINES 


Utility Calls 


Selective Dump on Console Printer 
Selective Dump on 1132 Printer 

Dump 80 Subroutine 

Update DCOM 

Call System Print 

Read *ID Record 

Fetch Phase IDs or, Fetch System Subroutine 


Common FORTRAN Calls 


Test Data Entry Switches 
Divide Check Test 
Functional Error Test 
Overflow Test 

Sense Light Control and Test 
FORTRAN Trace Stop 
FORTRAN Trace Start 
Integer Transfer of Sign 


Extended Arith/Funct Calls 


Extended Precision Hyperbolic Tangent 
Extended Precision A**B Function 

Extended Precision Natural Logarithm 
Extended Precision Exponential 

Extended Precision Square Root 

Extended Precision Sine-Cosine 

Extended Precision Arctangent 

Extended Precision Absolute Value Function 


FORTRAN Sign Transfer Calls 


Extended Precision Transfer of Sign 
Standard Precision Transfer of Sign 


Standard Arith/Funct Calls 


Standard Precision Hyperbolic Tangent 
Standard Precision A**B Function 

Standard Precision Natural Logarithm 
Standard Precision Exponential 

Standard Precision Square Root 

Standard Precision Sine-Cosine 

Standard Precision Arctangent 

Standard Precision Absolute Value Function 


Common Arith/Funct Calls 


Fixed Point (Fractional) Square Root 
Integer Absolute Function 
Floating Binary/EBC Decimal Conversions 


Flipper for LOCAL SOCAL Subprograms 


FORTRAN Trace Subroutines 


Extended Floating Variable Trace 
Fixed Variable Trace 

Standard Floating IF Trace 
Extended Floating IF Trace 

Fixed IF Trace 

Standard Floating Variable Trace 
GO TO Trace 


DISC 

IDENT 

ID 

COPY 

ADRWS (cannot be called) 
DLCIB 


DSLET 
MODIF 


DMTDO, DMTXO 
DMPD1, DMPX1 
DMP80 

SYSUP 

CALPR 

RDREC 

FSLEN, FSYSU 


DATSW 
DVCHK 
FCTST 
OVERF 
SLITE, SLITT 
TSTOP 
TSTRT 

iSIGN 


ETANH, ETNH 

EAXB, EAXBX 

ELN, EALOG 

EEXP, EXPN 

ESQR, ESQRT 

ESIN, ESINE, ECOS, ECOSN 
EATN, EATAN 

EABS, EAVL 


ESIGN 
FSIGN 


FTANH, FTNH 
FAXB, FAXBX 

FLN, FALOG 

FEXP, EXPN 

FSQR, FSQRT 

FSIN, FSINE, FCOS, FCOSN 
FATN, FATAN 

FABS, FAVL 


XSQR 
|ABS 
FBTD (BIN. TO DEC.) 
FDTB (DEC, TO BIN.) 


FLIPP 


SEAR, SEARX 
SIAR, SIARX 
SFIF 

SEIF 

SIF 

SEAR, SFARX 
SGOTO 


apis oP oR BS Be Pe ie 


oo000000 


mammnmnnnwn 


~NSN OS NS SNS 


PAR RAHA L 


PRAPPPSS 


wmmmnowmann 


es RRRHPHSRS 


DWMDMDDMDAMDADM 


~ 


WWWWWWW = 
ooooc°o°o oO 


sv wN SNS 


SYSUP, RDREC, DISKZ 
CALPR, DISKZ 

RDREC, CALPR, DISKZ 
RDREC, DISKZ 

Linked From DUP DWADR 
RDREC, DISKZ 


FSLEN, DISKZ 
DISKZ 


WRTYO 

PRNT1 

None 

FSLEN, FSYSU 
FSLEN 

FSLEN 

DISKZ 


EEXP, ELD/ESTO, EADD, EDIV, EGETP 
EEXP, ELN, EMPY 

XMD, EADD, EMPY, EDIV, NORM, EGETP 
XMD, FARC, EGETP 

ELD/ESTO, EADD, EMPY, EDIV, EGETP 
EADD, EMPY, NORM, XMD, EGETP 
EADD, EMPY, EDIV, XMD, EGETP,. NORM 
EGETP 


ESUB, ELD 
FSUB, FLD 


FEXP, FLD/FSTO, FADD, FDIV, FGETP 

FEXP, FLN, FMPY 

FSTO, XMDS, FADD, FMPY, FDIV, NORM, FGETP 
XMDS, FARC, FGETP 

FLD/FSTO, FADD, FMPY, FDIV, FGETP 

FADD, FMPY, NORM, XMDS, FSTO, FGETP 
FADD, FMPY, FDIV, XMDS, FSTO, FGETP 

FGETP 


None 
None 
None 


DISKZ, DISK1, or DISKN 


ESTO, TTEST, SWRT, SIOF, SCOMP 
TTEST, SWRT, SIO, SCOMP 
FSTO, TTEST, SWRT, SIOF, SCOMP 
FSTO, TTEST, SWRT, SIOF, SCOMP 
TTEST, SWRT, SIO], SCOMP 
ESTO, .TTEST, SWRT, SIOF, SCOMP 
TTEST, SWRT, SIO], SCOMP 
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System Library Programs Type and Subroutines Required ID Field 
Sub-type (cc 73 - 75) 


Non=-Disk FORTRAN Format I/O 


FORTRAN Format Subroutine SFIO, SIOL, SIOAI, SIOF, SIOAF, FLOAT, ELD/ESTO or FLD/FSTO, IFIX 
SIOFX, SCOMP, SWRT, SRED, SIOIX 


FORTRAN Find Subroutine SDFND DISKZ, DISK1 or DISKN 


Disk FORTRAN 1/0 SDFIO, SDRED, SDWRT, SOCOM, 


SDAF, SDF, SDI, SDIX, SDFX, SDAI 


DISKZ, DISK1 or DISKN 


FORTRAN Unformatted Disk 1/O 
FORTRAN Common LIBFs 


FORTRAN Pause 

FORTRAN Stop 

FORTRAN Subscript Displacement 
Calculation 

FORTRAN Subroutine Initialization 


SUFIO 


PAUSE 
STOP 
SUBSC 


SUBIN 


DISKZ, DISK] or DISKN 


None 
None 
None 


None 


FORTRAN Trace Test and Set TTEST, TSET None 


FORTRAN I/O and Conversion Subroutines 


FORTRAN 1442 Input/Output Subroutine CARDZ 
FORTRAN 1442 Output Subroutine PNCHZ 
FORTRAN 2501 Input Subroutine READZ 
Disk I/O Routine (Part of Supervisor) DISKZ 
FORTRAN Paper Tape Subroutine PAPTZ 
FORTRAN 1132 Printer Subroutine PRNTZ 
FORTRAN 1403 Printer Subroutine PRNZ 
FORTRAN Keyboard-Typewriter Subroutine TYPEZ 
FORTRAN Typewriter Subroutine WRTYZ 
FORTRAN 1627 Plotter Subroutine PLOTX 
FORTRAN Hollerith to EBCDIC Conversion HOLEZ 
FORTRAN Get Address Routine GETAD 
FORTRAN EBCDIC Table EBCTB 
FORTRAN Hollerith Table HOLTB 


. 


HOLEZ, GETAD, EBCTB, HOLTB, ILSOO, ILS04 
HOLEZ, GETAD, EBCTB, HOLTB, ILSOO, ILS04 
HOLEZ, GETAD, EBCTB, HOLTB, ILSO4 

ILSO2 

ILSO4 

ILSO1 

ILS04 

GETAD, EBCTB, HOLEZ, !LS04 

GETAD, EBCTB, ILSO4 

ILSO3 

GETAD, EBCTB, HOLTB 

None 

None 

None 


~ tn ys 
WWW 


os 


. 


ess 


WWWWOWW WWW 


. 


Extended Arith/Funct LIBFs 


Extended Precision Get Parameter Subroutine [| EGETP 

Extended Precision A**I Function EAXt, EAXIX 

Extended Precision Divide Reverse EDVR, EDVRX 

Extended Precision Float Divide EDIV, EDIVX 

Extended Precision Float Multiply EMPY, EMPYX 

Extended Precision Subtract Reverse ESBR, EXBRX 

Extended Add-Subtract EADD, ESUB, EADDX, ESUBX 
Extended Load-Store ELD, ELDX, ESTO, ESTOX 


ELD 

ELD/ESTO, EMPY, EDVR 
ELD/ESTO, EDIV 

XDD, FARC 

XMD, FARC 

EADD 

FARC, NORM 


None 


x. oss 


. 


. 
ONNNNN NPD 


“ 


WW WW WW WW 


. 


Standard Arith/Funct LIBFs 


Standard Precision Get Parameter Subroutine | FGETP 

Standard Precision A**! Function FAXI, FAXIX 
Standard Precision Divide Reverse FDVR, FDVRX 
Standard Precision Float Divide FDIV, FDIVX 


FLD 

FLD/FSTO, FMPY, FDVR 
FLD/FSTO, FDIV 

FARC 

XMDS, FARC 

FADD 

NORM, FARC 

None 

None 


~ 


~ 


~ 


. 


Standard Precision Float Multiply FMPY, FMPYX 

Standard Precision Subtract Reverse FSBR, FSBRX 

Standard Add=Subtract FADD, FSUB, FADDX, FSUBX 
Standard Load-Store FLD, FLDX, FSTO, FSTOX 
Standard Precision Fractional Multiply XMDS 


~ 8s 


9 WWW W WW 2 
NONNNNNNNY 


. 


Common Arith/Funct LIBFs 


Fixed Point (Fractional) Double Divide XDD 

Fixed Point (Fractional) Double Multiply XMD 

Sign Reversal Function SNR 

Integer to Floating Point Function FLOAT 
Floating Point to Integer Function IFIX 

I**J Integer Function FIXI, FIXIX 
Normalize Subroutine NORM 
Floating Accumulator Range Check FARC 
Subroutine 


XMD 
None 
None 
NORM 
None 
None 
None 
None 


wey 


. 
NONOONNND 


. 


xs 


OW WW WW Wo Ww 


. 


Interrupt Service Subroutines 


1442 Card Read Punch Input/Output ILSOO, ILSO4 
(No Error Parameter) 

1442 Card Read Punch Input/Output ILSOO, ILSO4 
(Error Parameter) 

2501 Card Read Input (No Error Parameter) ILS04 

2501 Card Read Input (Error Parameter) ILSO4 

1442 Card Punch Output (No Error Parameter) ILSOO, ILSO4 
1442 Card Punch Output (Error Parameter) ILSOO, {LS04 
Multiple Sector Disk Input/Output (Part ILSO2 

of Supervisor) 

High Speed Multiple Sector Disk Input/ ILSO2 
Output (Part of Supervisor) 

Synchronous Communications Adaptor ILSO1 

(SCA) STR Mode 
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System Library Programs Names Type and Subroutines Required ID Field 
Sub-type (ce 73 - 75) 


Interrupt Service Subroutines (Cont'd) 


SCA(BSC, Point-to-Point Mode) SCAT2 
SCA(BSC, Multi-Point Mode) SCAT3 
Paper Tape Input/Output PAPT] 

Simultaneous Paper Tape Input/Output PAPTN 
Character/Word Count Paper Tape Input/ PAPTX 
Output 

Plotter Output Subroutine PLOT} 
1132 Printer Output Subroutine PRNT1 
1132-SCA Print With Overlap PRNT2 
1403 Printer Output Subroutine PRNT3 
Keyboard/Console Printer Input/Output TYPEO 
Console Printer Output Subroutine WRTYO 
1231 Optical Mark Page Reader Input OMPR 1 
Subroutine 


ILSO1 
ILSOI 
ILS04 
ILSO4 
1LS04 


~ yey 


ILS03 
1LSO1 
1LSO1 
ILSO4 
HOL, PRTY, ILSO4 
ILS04 
ILSO4 


ANAaAnnnn AnNnnn 
ooooo0o°o ooo0oo 


wove vwvs 


Conversion Subroutines 


Binary Word to 6 Decimal Characters BINDC None 
(Card Code) 
Binary Word to 4 Hexadecimal Characters BINHX None 
(Card Code) 7 
6 Decimal Characters (Card Code) to DCBIN None 
Binary Word 

EBCDIC to Console Printer Output Code EBPRT 
Card Code to EBCDIC-EBCDIC to Card Code | HOLEB 
Card Code to Console Printer Output Code HOLPR 
4 Hexadecimal Characters (Card Code) to HXBIN 
Binary Word 

PTTC/8 to EBCDIC-EBCDIC to PTTC/8 PAPEB 
PTTC/8 to Card Code-Card Code to PAPHL 
PTTC.8 

PTTC/8 to Console Printer Output Code PAPPR 
Card Code to EBCDIC-EBCDIC to Card Code | SPEED 
4 of 8 Code to EBCDIC, EBCDIC to 4 of 8 EBC48 
Code 

4 of 8 Code to IBM Card Code, HOL48 
IBM Card Code to 4 of 8 Code 

4 of 8 Code to Table of Displacements HXCV 
32-Bit Binary Value to IBM Card Code BIDEC 
Decimal Value 

IBM Card Code Decimal Value to 32-Bit DECB} 
Binary Value i 
Supplement to Alf Standard Conversions ZIPCO 
Except Those Involving PTTC/8 


EBPA, PRTY 
EBPA, HOLL 
HOLL, PRTY 
None 


soNoNS 


EBPA 
EBPA, HOLL 


ss 


EBPA, PRTY 
None 
HXCV, STRTB 


~ oN 


HXCV, HOLCA, STRTB 


~ 


None 
None 


~ oN 


None 


~ 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


fo) [o) oo Oo ooo oo ooo°o 


Any ZIPCO Conversion Table 


~ 


Conversion Tables 


EBCDIC and PTTC/8 EBPA 
Card Code Table HOLL 
Console Printer Output Code Table PRTY 
Table of IBM Card Codes HOLCA 
Table of 4 of 8 and EBCDIC Codes STRTB 


ZIPCO Conversion Tables 


EBCDIC to Console Printer Code EBCCP 
EBCDIC to IBM Card Code EBHOL 
EBCDIC to 1403 Printer Code EBPT3 
Console Printer Code to EBCDIC CPEBC 
Console Printer Code to IBM Card Code CPHOL 
Console Printer Code to 1403 Printer Code CPPT3 
IBM Card Code to EBCDIC HLEBC 
IBM Card Code to Console Printer Code HOLCP 
IBM Card Code to 1403 Printer Code HLPT3 
1403 Printer Code to EBCDIC PT3EB 
1403 Printer Code to Console Printer Code PT3CP 
1403 Printer Code to IBM Card Code PTHOL 


WW WWW WWW WWW Ww 
ww SSN WSN wos oy 
eoooocoooco0o0o°0sd 


Interrupt Level Subroutines 
Interrupt Level Zero Subroutine ILSOO None 
Interrupt Level One Subroutine iILSO1 None 
Interrupt Level Two Subroutine (Part of iLSO2 None 
Supervisor) 
Interrupt Level Three Subroutine ILSO3 None 
Interrupt Level Four Subroutine (Part of ILSO4 None 
Supervisor) 

Standard Plot Calls 


Standard Precision Character FCHAR FSIN, FCOS, FPLOT, FCHRX, FLD, FSTOX, FSTO 


Standard Precision Scale SCALF FRULE 
Standard Precision Grid FGRID FPLOT, POINT, FADD, FLD, FSTO, SNR 
Standard Precision Plot FPLOT FMOVE, XYPLT, PLOTI 
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System Library Programs Names Type and Subroutines Required ID Field 
Sub-type (cc 73-75) 


Extended Plot Calls: 


Extended Precision Character ECHAR ESIN, ECOS, EPLOT, ECHRX, ELD, ESTO, ESTOX 
Extended Precision Scale SCALE ERULE 

Extended Precision Grid EGRID EPLOT, POINT, EADD, ELD, ESTO, SNR 
Extended Precision Plot EPLOT EMOVE, XYPLT, PLOTI 


Common Plot Call 
Point Characters POINT PLOTI 


Standard Plot LIBFs 


Standard Precision Annotation FCHRX, FCHRI, WCHRI FLOAT, FMPY, IFIX, FADD, FLDX, FINC, XYPLT, PLOTI, 
FSTOX, FLD 
Standard Precision Plot Scaler FRULE, FMOVE, FINC FLDX, FSUBX, FMPYX, FLD, FSTOX, FMPY, IFIX, FADD 


Extended Plot LIBFs 


Extended Precision Annotation ECHRX, ECHRI, YCHRI FLOAT, EMPY, IFIX, EADD, ELDX, EINC, XYPLT, PLOTI, 
ESTOX, ELD 

Extended Precision Plot Scaler ERULE, EMOVE, EINC ELDX, ESUBX, EMPYX, ELD, ESTOX, EMPY, IFIX, EADD, 
ESTO 


Common Plot LIBFs 


Pen Mover XYPLT PLOTI 
Interface PLOTI PLOTX 
Interrupt Service PLOTX ILSO3 


Disk [/O 

Sequential Access SEQOP, SEQIO, SEQCL DISKZ 
Direct Access DAOPN, DAIO, DACLS DISKZ 
ISAM Load ISLDO, ISLD, ISLDC DISKZ 
ISAM Add ISADO, ISAD, ISADC DISKZ 
ISAM Sequential ISEQO, ISETL, ISEQ, ISEQC DISKZ 
ISAM Random ISRDO, ISRD, ISRDC DISKZ 


RPG Decimal Arithmetic 


Add, Subtract and Numeric Compare RGADD, RGSUB, RGNCP None 

Multiply RGMLT RGBTD, RGDTB 
Divide RGDIV None 

Move Remainder RGMVR RGBTD 

Binary Conversion RGBID, RGDTB None 


RPG Sterling and Edit 

Sterling Input Conversion RGSTI RGBTD, RGDTB 
Sterling Output Conversion RGSTO RGBTD, RGDTB 
Edit RGEDT None 


RPG Move 


From I/O Buffer to Core RGMV1, RGMV5 None 
From Core to I/O Buffer RGMV2 None 
MOVE Operation RGMV3 None 
MOVEL Operation RGMV4 None 


RPG Compare 
Alphameric RGCMP None 


RPG Indicators 


Test RGSH None 
Set Resulting On RGSI2 None 
Set On RGSI3 None 
Set Off RGSI4 None 
Test for 0 or Blank RGSI5 None 


RPG Miscellaneous 


Test Zone RGTSZ None 
Convert to Binary RGCVB None 
Object Time Error RGERR None 
Blank After RGBLK None 
Alternating Sequence ALTSE \ 
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The Location Equivalence Table (LET) contains the 
name and disk block count of all programs and data 
files stored in the User Area, including the System 
Library. The Fixed Location Equivalence Table (FLET) 
contains the names of all programs and data files stored 
in the Fixed Area. 

Each cartridge must have a LET. FLET is optionally 
defined on each cartridge by the DUP control record 
DEFINE FIXED AREA. 


LET/FLET DISK FORMAT 
All entries are three words long and consist of a name 


and disk block count. In addition, each sector of LET/ 
FLET contains a five word sector header. 


LET/FLET Entries 


DSF 
Entries (LET only) CI Data 
Word 1, bits 0-1 00 10 i 
Word 1, bits Program or data file 
2-15 plus name in name code 
Word 2 
Word 3 DB count of program 


or data file 


Sometimes unused disk space occurs because data 
files and programs in core image format are stored 
on sector boundaries. Such spaces are represented 
by a 1DUMY entry. 


A 1DUMY entry is always inserted to precede a DDF 
or DCI entry when the last entry is in DSF format, 
even when the preceding program ends on a sector 
boundary. This case will generate a 1DUMY with 
a DB count of zero (blank). This is done because 
a DELETE operation in the future might call for a 
1DUMY "padding", and under certain circumstances 
there may be no room to insert a 1DUMY entry. 

The format is the following: 


Word 1, bits 0-1 Reserved 


Word 1, bits 2-15 Name code for IDUMY 
plus Word 2 


Word 3 DB count of entry 
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The last entry of LET is a IDUMY entry reflecting the 
current size of WS available. 


LET/FLET Sector Header 


Word Entry 
1 Relative sector number for this cartridge only 
2 Sector address of the UA (sector address of FX 
if FLET) 
3 Reserved 
4 Number of words available in this LET/FLET 
sector. 


5 Sector address for the next LET/FLET sector 
of this cartridge. This entry is zero if this 
is the last LET/FLET sector on this cartridge. 


LET/FLET DUMP FORMAT 


The DUP control records DUMPLET or DUMPFLET are 

used to dump LET/FLET on the principal printer. One 

sector of LET/FLET is printed per page. The page is 

headed with the word LET or FLET, whichever is appli- 

cable. Each sector of LET/FLET dumped is preceded 

by two lines of header information. The first header 

line contains the contents of the following locations from 

COMMA/DCOM: 

#CIDN -- Cartridge ID, Logical Drive 0, 1, 2, 3, 
or 4 

$FPAD -- COMMA File Protect Address, Logical 
Drive 0, 1, 2, 3, or 4 

#FPAD -- DCOM File Protect Address, Logical 
Drive 0, 1, 2, 3, or 4 


#CIBA -- CIB Address, Logical Drive 0, 1, 2, 3, 
or 4 

#ULET -- LET Address, Logical Drive 0, 1, 2, 3, 
or 4 

#FLET -- FLET Address, Logical Drive 0, 1, 2, 
3, or 4 


Following this line will be a second header line which 
reflects information concerning the LET/FLET sector 
being dumped: 


Relative Sector Number (SCTR NO.) 
User Area/Fixed Area (UA/FXA) 
Word Available (WORDS AVAIL) 
Chain Address (CHAIN ADR) 
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Following these two header lines are the LET/ 
FLET entries. Twenty one lines of entries are 
printed, five entries per line and sequenced by col- 
umn. Each entry is formatted as follows: 


Name -- 5 print positions + blank 

Type code -- DSF, DCI, or DDF -- 3 print 
positions + blank, 4 blanks if IDUMY or 
secondary entry point 
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DB Count -- 4 print positions + blank 
DB Addr -- 4 print positions + 5 blanks 


Only the name is printed for each secondary 
entry. 

Examples of DUMPLET and DUMPFLET 
follow. 


// JSGB 3333 


LOG DRIVE CART SPEC CART AVAIL PHY ORIVE 


0000 3333 3333 coo02 
2222 ocol 
CCOF 0003 
OABB 0004 
4/7 GuP 
*DEFINE FIXED AREA 5 


CART IO 3333 CYLS FXA 0004 CBS AVAIL 0200 FLET SECTCR ADOR 


*STOREDATA CO FX CATA 10 
CART ID 3333 O08 ACCOR 1200 OB CNT 0020 


-*STOREDATACICC Fx CIMGE 10 
CART ID 3333 08 ACCR 1220 CB CNT c020 


*STOREDATA CO UA CATA2 10 
CART ID 3333 DB ACCR 1040 CB CNT 0c20 


*CUMPLET 


LET 


=CIDN $FPAG =FPAC =CIBA =ULET =FLET 
3333 0106 0106 0140 C150 C118 


SCTR NO. UA/SFXA. WORDS AVAIL. CHAIN ADDR. 


ccoo0 Ci58 ocoo0 0151 
PROG FCR DB OB PROG FOR OB OB PROG FOR DB 
NAME MAT CNT ADDR NAME MAY CNT ACDR NAME MAT CNT 
FAOD CSF 0008 1580 FATN OS OGOA 15AA ESuB 
FSUB FATAN EADDX 
FACDX FAXB OSF C005 1584 E SUBX 
FSUBX FAXBX EAXIT OSF 0007 
FAXIT CSF 0006 1588 FEXP DSF COO9 15B9 EAXIX 
FAXIX FXPN EDIV CSF 0006 
FOIV OSF OO0C7 158E FLN OSF OOOA 15C2 EDI VX 
FOIVX FALOG EOVR OSF 0003 
FOVR CSF 0003 1595 FSIGN OSF C003 15CC EDVRX 
FOVRX FSIN OSF 0009 15CF EGETP CSF 0003 
FGETP OSF 0003 1598 FSINE ELD DSF 0004 
FLO CSF 0005 1598 FCOS ELDX 
FLOX FCOSN ESTO 
FSTG FSQR CSF 0006 15D8 ESTOX 
FSTOX FSQRT EMPY CSF 0004 
FMPY CSF G005 L5AC FTANH DSF C005 15DE EMP YX 
FMPYX FINH ESBR DSF 0003 
FSBR CSF 0003 15A5 SFAR OSF 0004 15€3 ESBRX 
FSBRX SFARX EABS OSF 0002 
FABS DSF OC02 15A8 SFIF OSF 0003 15E7 EAVL 
FAVL EADD OSF 0008 156A EATN OSF 000B 
=CION $FPAC =FPAD =CIBA =ULET =FLET 


3333 OLC6 0106 0140 0150 0118 


SCTR NOw UA/FXA. WORDS AVAIL. CHAIN ACOR. 


ccol 015% cao0 0152 

PROG FOR OB cB PROG FGR OB DB PROG FOR OB 
NAME MAT CNF ADDR NAME MAT CNT ACDR NAME MAT CNT 
ISIGN CSF 0C03 L6AC SIOF PAPTZ DSF QOOF 
OVERF OSF OCC2 L6AF SICAF PNCHZ CSF 0006 
SLITE CSF OCO5 1681 STOFX PRNTZ CSF 0000 
SLITT Scamp PRNZ OSF 0000 
PDUMP DSF 0009 1686 SWRT READZ OSF 0005 
TSTOP DSF OCU2 L6BF SRED TYPEZ OSF 0007 
TSTRT CSF 0002 16C1 STOEX WRTYZ OSF 0005 
SOFIO OSF OO17 16C3 UFEO OSF OOLC 1720 EBCTB CSF 0005 
SDAF URED GETAD DSF 0002 


0118 


DB 
ADDR 


15F2 
15F9 
15FF 


1602 
1605 


1609 


1600 


1610 


1612 


dB 
ADDR 


1748 
1757 
1750 
176A 
1777 
177C 
1783 
1788 
178D 


PROG 
NAME 


EATAN 
EAXB 
EAXBX 
EEXP 
EXPN 
ELN 
EALOG 
ESIGN 
ESIN 
ESENE 
ECOSN 
ECOS 
ESOQR 
ESQRT 
ETANH 
ETNH 
SEAR 
SEARX 
SEIF 
FARC 
FIXI 


PROG 
NAME 


CARDL 
OMPR1 
PAPT1 
PAPTN 
PAPTX 
PLOTL 
PNCHO 
PNCH1 
PRNTL 


FOR 
MAT 


DSF 
DSF 
OSF 


DSF 
DSF 


OSF 


DSF 


DSF 


DSF 
DSF 
DSF 


FOR 
MAT 


DSF 
DSF 
DSF 
OSF 
DSF 
OSF 
OSF 
DSF 
OSF 


OB 
CNT 


000s 
OOOA 
co00B 


0003 
cOOB 


0006 
C004 
0004 


cco3 
0003 
0005 


0B 
CNT 


0010 
coll 
0011 
0013 
0015 
OO00E 
QOOE 
OOOE 
0018 


0B 
ADDR 


1610 
1622 
162C 


1637 
163A 


1645 
1648 
164F 


1653 
1656 
1659 


0B. 
ADDR 


L7BE 
L7CE 
17DF 
L7FO 
1803 
1818 
1826 
1834 
1842 


PROG 
NAME 


FIXIX 
FLOAT 
[FIX 
NORM 
SNR 
xDD 
XMO 
XMDS 
FBTD 
FDTS 
TABS 
XSQR 
PAUSE 
stop 
SUBIN 
SUBSC 
TTEST 
TSET 
DATSW 
DVCHK 
FCTST 


PROG 
NAME 


SPEED 
Z1PCO 
BICEC 
BINOC 
BINHX 
CPEBC 
CPHOL 
CPPT3 
DOCBIN 


FOR 
MAT 


DSF 
DSF 
OSF 
OSF 
DSF 
DSF 
DSF 
OSF 


OSF 
DSF 
OSF 
OSF 
DSF 
OSF 
DSF 


DSF 
OSF 
DSF 


FOR 
MAT 


DSF 
OSF 
OSF 
DSF 
DSF 
DSF 
DSF 
DSF 
OSF 


bB 
CNT 


0002 
0004 
0004 
cac2 
0006 
0005 
0003 
0019 


0002 
0004 
0003 
0002 
0003 
0003 
0002 


0003 
0002 
0003 


D8 
CNT 


001s 
OOOA 
0006 
0005 
0004 
0009 
0009 
coo9 
0006 


D8 
ADDR 


165E 
1660 
1664 
1668 
Lé0A 
1670 
1675 
1678 


1691 
1693 
1697 
169A 
169C 
169F 
16A2 


16A4 
L6AT 
LéA9 


De 
ACUR 


180A 
L8EF 
18-9 
L8FF 
1904 
1908 
1911 
191A 
1S23 
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SDATI UWRT HOLEZ CSF 0005 


SBCOM UIO! HOLTB DSF 0004 
SDF UIOF SGOTO DSF 0003 
SDFX UIOAI SIAR OSF 0004 
SDI UIOAF STARX 
SDIX UIOFX SIIF DSF 0003 
SDREC uIOIx ILSOO DSF 0003 
SDWRT UCOMP ILSO1 DSF C003 
SDFND DSF 0006 160A BCKSP IL$02 OSF 0001 
SFIO CSF 0040 16E0 EOF ILSO3 DSF 0003 
STOl REWND ILSO4 DSF 0002 
SICAI CARDZ CSF OOOC 173 CARDC DSF C010 

=CIDN $FPAD =FPAD =CIBA =NLET =FLET 

3333 01L6 0106 0140 0150 0118 

SCTR NO. UA/FXA. WORDS AVAIL. CHAIN ACOR. 

c002 0158 0087 0118 
PROG FOR DB ob PRCG FOR-DB 6B PROG CR OB 
NAME MAT CNT AUOR NAME WAT CNT ACDR NAME MAT CNT 
PT3EB DSF OCC9 198C ECHAR OSF 0005 1B75 POINT DSF 0008 
DMTOO CSF OO1A 1995 FCHRX OSF 0026 1LBTA SCALE DSF 0002 
DMTXO ECHRI SCALF CSF 0002 
OMPDL DSF OOLE LYAF VCHRI XYPLT DSF 0007 
OMPX1 EGRIC DSF 0008 1BAO EBC48 DSF 0009 
OMP8O0 CSF OO0C7 19CC ERULE DSF OOCA 1BA8 HOLCA DSF 0006 
FLIPR DSF OOU7 19D4 EMOVE HOL48 DSF 0008 
SYSUP DSF 0035 1908 EINC HXCV DSF 0004 
ADRWS DSF OC10 1A10 EPLOT CSF C005 1BB2 PRNT2 CSF OOLE 
COPY OSF OCD 1A20 FCHAR CSF 0005 1887 SCAT1 OSF 0041 
DISC DSF 0036 1A3D FCHRX CSF 0025 1B8BC STRTB DSF 0006 
DLCIB DSF OOLD 1A73 FCHRI SCAT3 DSF 0048 
DSLET OSF 0036 LA90 WCHRI KG3 OSF 0006 
1D CSF OOLA LAC6 FGRID DSF 0008 1BE1 KG4 DSF 0009 
IDENT USF OOUC 1AEO FRULE OSF 0009 1BE9 SCAT2 DSF 0040 
MODIF DSF C059 LAEC FMOVE 10UMY OO0E 
PTLTL CSF 0009 1845 FINC DATA2 DDF 0020 
CALPR CSF OCO7 1B4E FPLOT DSF C004 1BF2 LOUMY 46A0 
FSLEN DSF 000B 1855 PLOTI DSF 0003 18F6 
FSYSU PLOTS 
ROREC DSF 0015 1866 PLOTX DSF COOC 1BF9 

FLET 
=CIDN $FPAC =FPAD =CIBA =NLET =FLET 


3333 0106 O1D6 0140 0150 0118 


SCTR NG. UA/FXA. WORDS AVAIL. CHAIN ADDR. 


oc1o 012C 0132 ccoo 
PROG FOR OB BB PROG FCR DB DB PROG FOR DB 
NAME MAT CNT ADOR NAME MAT CNT ADDR NAME MAT CNT 


CATA ODDF 0020 1200 
CIMGE DCI 0020 1220 
1DUMY O1CO 1246 


END CF DUMPLET/FLET 


*DUMPFLET 

=CICN $FPAC =FPAD =CIBA SULET =FLET 

3333 O1C6 01D6 0140 0150 0118 

SCTR NOw UA/FXA, WORDS AVAIL. CHAIN ACOR. 

co010 6120 0132 cc00 
PROG FOR DB oB PROG FQ? DB OB PROG FCR OB 
NAME MAT CNT ACOR NAME MAT CNT ACOR NAME MAT CNT 


CATA CGF O002C 1200 
CIMGE OCI CC2C 1220 
1DUMY 01CG 1240 
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178F 
1794 
1798 
1798 


179F 
17A2 
17A5 
17A8 
17A9 
L7AC 
17AE 


OB 
ACDR 


1c05 
1c0D0 
1COF 
1cll 
1€18 
1C21 
1C27 
1C2F 
1033 
1€51 
1¢c92 
1098 
1CE3 
1CE9 
1CF2 
1032 
1040 
1060 


0B 
ADDR 


DB 
ADDR 


PRNT3 
READO 
READI 
TYPEO 
WRTYO 
EBPRT 
HOLEB 
HOLPR 
HXBIN 
PAPEB 
PAPHL 
PAPPR 


PROG 
NAME 


PRCG 
NAME 


PROG 
NAME 


OSF 
DSF 
DSF 
OSF 
DSF 
OSF 
OSF 
OSF 
OSF 
DSF 
OSF 
OSF 


oo0D 
0007 
0008 
0012 
0009 
0007 
0009 
0007 
0005 
0010 
0010 
000D 


FOR DB 
MAT CNT 


FOR DB 
MAT CNT 


FOR O8 
MAT CNT 


185A 
1867 
186E 
1876 
1888 
1891 
1898 
18Al 
18A8 
18AD 
1860 
18CC 


DB 
ADDR 


DB 
ADDR 


vB 
ADDR 


DECBI 
EBCCP 
EBHOL 
EBPA 

EBPT3 
HLEBC 
HLPT3 
HOLCP 
HOLL 

PRTY 

PTHOL 
PT3CP 


PROG 
NAME 


PROG 
NAME 


PROG 
NAME 


DSF 0009 
DSF 0009 
DSF 0009 
DSF 0006 
DSF 0009 
DSF 0009 
DSF 0009 
OSF 0009 
DSF 0006 
DSF 0006 
OSF 0009 
OSF 0009 


FOR DB 
MAT CNT 


FOR DB 
MAT CNT 


FOR OB 
MAT CNT 


1$29 
1932 
193B 
1544 
194A 
1953 
195C 
19505 
1S6E 
1974 
197A 
1S83 


DE 
ACUR 


De 
ACDR 


oe 
ADOR 


APPENDIX H. RESIDENT MONITOR (INCLUDING TABLE OF EQUIVALENCES) 


The contents of this appendix are not to be construed as an external specification, i.e, , the location in this 
listing may be changed, $PRET, $IREQ, $EXIT, $LINK, and $DUMP are the only locations that are guaranteed. 


Note that = is equivalent to # and ' (apostrophe) is equivalent to @ 


ADDR REL OBJECT ST.NC. LABEL OPCD FT OPERANDS 1C/SEQNG 
0001 * RLTV ADDR* SYMBOL* DESCRIPTION PMNOOOLO 
0002 * * * PMNOCO20 
0003 * 0-3 * * RESERVED FOR EVEN BOUNDARIES PMNOCO30 
0004 * 4-5 * #NAME * NAME OF PROGRAM/CORE LOAD PMN00040 
0005 * 6 * #DBCT * BLOCK CGUNT OF PROG/CORE LOAD PMNOO0S5O 
0006 * 7 * #FCNT * * FILES SWITCH-—-ZERO MEANS NO PMNO00060 
0007 * * * FILES HAVE BEEN EQUATED PMNOOO070 
0008 * 8 * #SYSC * SYS/NON-SYS CARTRIDGE ENDR PMNOOO8O 
0co9 * 9 * #IBSW * JOBT SWITCH-—- NON-ZERO MEANS PMNOOO90 
0010 * * * TEMPORARY MODE PMNOO100 
0011 * 10 * #CBSW * CLB-RETURN-TO-DUP SWITCH-- PMNOO110 
0012 * * * ZERO=CLB RETURN TO SUPV PMNOO120 
0013 * 1 * #LCNT * NO. OF LOCALS PMNOOL30 
0014 * 1? * #MPSW * CORE MAP SWITCH--ZERO MEANS PMNO0140 
0015 * * * DO NOT PRINT A CORE MAP PMNOGO150 
0016 * 13 *® #MDFL * NO. DUP CTRL RECDS (MODIF) PMNOO160 
0017 * 14 * #MDF2 * ADDR OF MODIF BUFFER PMNCO1L70 
0018 * 15 * #NCNT * NO. OF NOCALS PMNO0180 
0019s * 16 * #ENTY * RLTV ENTRY ADDR OF PROGRAM PMNOO190 
0070 * 17 * #RPGT * 1442-5 SW (0#1442-5 ON SYSTEM PMNOO200 
0021 * 18 * #TOOR * *TO* WORKING STG ORIVE CODE PMNOO210 
0022 * 19 * #FROR * *FROM* WORKING STG DRIVE CODE PMNO0220 
0023 * 20 * #FHOL * ACOR OF LARGEST HOLE IN FXA PMNOO230 
0024 * 71 * HFSZE * BLK CNT OF LARGEST HOLE IN FXA PMNOO240 
0025 * 2? * #UHOL * ADOR OF LARGEST HOLE IN UA PMNOO250 
0026 ® 23 * #USZE * BLK CNT OF LARGEST HOLE ITN UA PMNOO260 
0027 * 24 * #DNCSW * DUP CALL SW-—-NON-ZERO#DUP CALL PMNOO270 
0028 * 25 * #PIOD * PRINCIPAL 1/0 DEVICE INDICATOR PMNOO280 
0029 * 96 * #PPTR * PRINC. PRINT DEVICE INDICATOR PMNO0290 
00 30 * 27 * #CIAD * RLTV ADDR IN *STRT OF CIL ADDR PMNOO300 
0031 * 78 * #ACIN * AVAILABLE CARTRIDGE INDICAT2—2 PMNCO310 
0032 * 29 * #GRPH * 2250 INDICATOR 2G2 PMNO0O320 
0033 * 30 * #GCNT * NOw G2250. RECGRDS 262 PMNOO330 
0034 * 31 * #LOSW * LOCAL-CANNGT—CALL-LOCAL SW 2-2 PMNC0340 
00 35 * 3? * #X3SW * SPECIAL ILS SWITCH 2-2 PMNOO0350 
0036 * 33 * #ECNT * NOw OF *EQUAT RCDS 2-4 PMNOO355 
0037 * 33-34 * * RESERVED FOR FUTURE USE 2-2 PMNO0360 
0038 * 35 * #ANDU * 14+8LOCK ADDR OF END OF USER PMNOO370 
0039 * * * AREA (ADJUSTED) LOGICAL DR O PMNOO380 
0040 * 36 * * I+BLOCK ADDR GF END OF USER PMNO0390 
0041 * * * AREA CADSUSTED) LOGICAL DR 1 PMNO0400 
0042 * 37 * * L#BLOCK ADDR GF END OF USER PMNON0410 
0043 * * * AREA (ADJUSTED) LOGICAL DR 2 PMN00420 
0044 * 38 * * 14+#BLOCK ADDR OF END OF USER PMN00430 
0045 * * * AREA (ACJUSTED) LOGICAL DR 3 PMNO0440 
0046 * 39 * * 1¢#BLOCK ADOR GF END OF USER PMNO0450 
0047 * * * AREA (ADJUSTED) LOGICAL DR 4 PMNO0460 
0048 * 40 * #BNDU * 14+BLOCK AODR OF END OF USER PMNO00470 
0049 * * *® AREA (BASE) LOGICAL ORIVE 0O PMNO0480 
0050 * 4) * * L+BLOCK ADDR GF END DF USER PMNO0490 
0051 * * * AREA (BASE?) LOGICAL ORIVE 1 PMNOOS500 
0052 * &2 * * 1#BLOCK ADDR OF END OF USER PMNOO510 
0053 * * * AREA (BASE) LOGICAL ORIVE 2 PMNOO520 
0054 * 43 * * 14#BLOCK ADDR OF END OF USER PMNO0530 
0055 * * * AREA (BASE) LOGICAL DRIVE 3 PMNO0540 
0056 * 44 * * 1+BLOCK ADDR OF END OF USER PMNOO550 
0057 * * * AREA (BASE) LOGICAL DRIVE 4 PMNO0560 
0058 ® 45 * #FPAD * FILE PROTECT ADDR, LOGICAL PMNOO570 
0059 * * * DRIVE O (BASE) PMNOCS580 
0060 * 46 * * FILE PROTECT ADDR, LOGICAL PMNO00590 
0061 * * * ORIVE 1 (BASE) PMNO0600 
006? * 4T * * FILE PROTECT ADDR, LOGICAL PMNOO610 
0063 * * * DRIVE 2 (BASE) PMN00620 
0064 & GB * * FILE PROTECT ADDR, LOGICAL PMNO06 30 
co6és * * * DRIVE 3 (8ASE) PMNO0640 
0066 * 49 * * FILE PROTECT ADDR,LOGICAL PMNO0650 
a067 * * * ORIVE 4 (BASE) PMNO0660 
0068 * 50 * HPCID * CARTRINGE IDs: PHYSICAL DRIVE O PMNO0670 
C069 * 51 * * CARTRIDGE ID, PHYSICAL DRIVE 1 PMNOO680 
0070 * 52 * * CARTRIDGE ID, PHYSICAL DRIVE 2 PMNO0690 
0071 * 53 * * CARTRIOGE ID, PHYSICAL DRIVE 3 PMNOOTOO 
co7T2 * 54 * * CARTRIDGE 1D, PHYSICAL DRIVE 4 PMNOO7TLO 
0073 * 55 * #CIDN * CARTRIDGE IDs LOGICAL ORIVE 0 PMNOO720 
O0T4 * 56 * * CARTRIDGE ID, LOGICAL DRIVE 1 PMNOO7T30 


@ Appendix H 


149 


ADNDR REL OBJECT ST.NO. LABEL OPCD FT OPERANOS 1D/SEQNO 


0975 * 57 * * CARTRIDGE ID, LOGICAL ORIVE 2 PMNOO740 
0076 * 58 * * CARTRIOGE ID, LOGICAL ORIVE 3 PMNCO7SO 
0077 * 59 * * CARTRIDGE ID, LOGICAL ORIVE 4 PMNOO760 
0078 * 60 * WCIBA * SCTR ADDR OF CIB, LOGICAL DR O PMNOOT70 
0079s ® «61 * * SCTR ADDR OF CIB, LOGICAL DR 1 PMNOOT6O 
0980 * 62 * * SCTR ADDR OF CIB, LOGICAL DR 2 PMNOO790 
0081 * 63 * * SCTR ADDR OF CIB, LOGICAL DR 3 PMNOO800 
0982 * 64 * * SCTR ADDR OF CIB, LOGICAL DR 4 PMNOOBLO 
0083 = * «65 * #SCRA * SCRA, LOGICAL DRIVE 0 PMNO0820 
0084 * 66 * * SCRA, LOGICAL ORIVE 1 PMNO0830 
0085 * 67 * * SCRA, LOGICAL ORIVE 2 PMNCO840 
0086 * 68 * * SCRA, LOGICAL DRIVE 3 PMNCO850 
0087 * 69 * * SCRA, LOGICAL DRIVE 4 PMNOO860 
0088 * 70 * #WFMAT * FORMAT OF PROG IN WSe DRIVE 0 PMNOO870 
co89 * 71 * * FORMAT OF PROG IN WS, ORIVE 1 PMNOO88O 
0090 * 72 + * FORMAT OF PROG IN WS, ORIVE 2 PMNOO890 
0091 * 73 * * FORMAT OF PROG IN WS, ORIVE 3 PMNO0900 
c092 * 14 * * FORMAT OF PROG IN WS, DRIVE 4 PMNO0910 
co93—si‘ S75 * #FLET * FLET SCTR ADDR, LOGICAL DR 0 PMNO0920 
C094 * 76 * * FLET SCTR ADDR, LOGICAL DR 1  PMN0O0930 
C095 * 77 * * FLET SCTR ADOR, LOGICAL DR 2 PMN00940 
0096 * 78 * * FLET SCTR ADDR, LOGICAL DR 3  PMNO0950 
0097 * 79 * * FLET SCTR ADDR, LOGICAL DR 4  PMNO0960 
co9e * 80 * #WULET * LET SCTR ADDR, LOGICAL DR O PMNO0970 
co99,s«®s8} * * LET SCTR ADDR, LOGICAL OR 1 PMNOO980 
0100 * 9? * * LET SCTR ADDR» LOGICAL DR 2 PMNO0990 
0101 * 83 * * LET SCTR ADDR» LOGICAL DR 3 PMNO1000 
0102 * 84 * * LET SCTR ADDR, LOGICAL OR 4 PMNO1010 
0103 ® «85 * #WSCT * BLK CNT OF PROG IN WS, DRIVE © PMNO1020 
0104 * 86 * * BLK CNT OF PROG IN WS, DRIVE 1 ®MNO1030 
0105 = ® 87 * * BLK CNT OF PROG IN WS, DRIVE 2 PMNO1040 
0106 * 8B * * BLK CNT OF PROG IN WS, DRIVE 3 PMNO1050 
0107 * 89 * * BLK CNT OF PROG IN WS, ORIVE 4 PMNO1060 
0108 8 * 90 * #CSHN * SCTR CNT CUSHION, LOGICAL DR O PMNO1070 
0109s ® (9 * * SCTR CNT CUSHION,LOGICAL DR 1 PMNO1080 
0110 * 92 + * SCTR CNT CUSHTON,LOGICAL DR 2 PMNO1090 
O1ll * 93 * * SCTR CNT CUSHION,LOGICAL DR 3 PMNO1100 
0112 € 94 * * SCTR CNT CUSHION,LOGICAL DR 4 PMNO1110 
0113 * 95-319 * * RESERVED FOR FUTURE USE PMNO1120 
RESIDENT MONITOR 

ANMR REL OBJECT ST.NO. LABEL OPCD FT OPERANDS 1D/SEQNO 
0115 ERKEERKEKESEEEEKEKEREEKERERERE REESE EEEKEEERERERESEEEEE PMNO11460 
Olle * PMNO1150 
0117 *STATUS-VERSION 2, MODIFICATION 4 * PMNO1160 
0118 * * PMNO1170 
0119 *FUNC TION/CPERATION-— * PMNO1180 
0120 * THIS SECTION ALWAYS REMAINS IN CORE. IT * PMNO1190 
0121 * IS COMPRISED OF THE COMMUNICATIONS * PMNO1200 
0122, * AREA (COMMA), THE SKELETON SUPERVISOR, AND * PMNOL210 
0123 * A DISK I/O SUBROUTINE, NOMINALLY DISKZ. (THE * PMNO1220 
0124 * FERST TWO OF THESE SECTIONS ARE INTERMIXED.) * PMNO1230 
0175 * COMMA CONTAINS THE SYSTEM PARAMETERS REQUIR- * PMNO1240 
0126 * ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * PMNO1250 
0127 * MAT. THE SKELETON SUPERVISOR PROVIDES IN- * PMNO1260 
0128 *  STRUCTIONS FOR INITIATING A CALL EXIT, A * PMNO1270 
0129 * CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE * PMNO1280 
0130 * AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* PMNO1290 
0131 * TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-*® PMNO1300 
0132 * TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O  * PMNO1310 
C133. «= *  SECTICN CONSISTS OF A SUBROUTINE FOR READING * PMNO1320 
0134 * FROM OR WRITING ON A DISK CARTRIDGE ON A * PMNO1330 
0135 * GIVEN LOGICAL DISK DRIVE. * PMNO1340 
0136 * * PMNO1350 
0137 *ENTRY POINTS- * PMNO1360 
- 0138 * # S$PRET-A TRAP FOR PREOPERATIVE [/0 ERRORS. * PMNO1370 
0139°—i THE CALLING SEQUENCE IS * PMNO1380 
0140 = * BSI & S$PRET * PMNO1390 
0141 *  * SPSTX-A POSTOPERATIVE ERROR TRAP FOR 1/0 * PMNO1400 
0142 * DEVICES ON LEVEL X (X#1_293,0R 4). * PMNO1410 
0143 * THE CALLING SEQUENCE IS * PMNO1420 
0144 * BSE L  $PSTX * PMNO1430 
0145 * * $STOP-THE PROGRAM STOP KEY TRAP. * PMNO1440 
0146 *  SEXIT-THE ENTRY POINT FOR THE EXIT/CALL * PMNO1450 
0147 * EXIT STATEMENT. THE CALLING SEQUENCE IS* PMNO1460 
0148 * LDX 0 SEXIT * PMNO1470 
0149 *  ® SLINK-THE ENTRY POINT FOR THE LINK/CALL * PMNO1480 
0150 + LINK STATEMENT. THE CALLING SEQUENCE I1S* PMNO1490 
0151 * BSE Lt  SLINK * PMNO1500 
0152 * * S$DUMP-THE ENTRY POINT FOR THE DUMP/PDMP * PMNO1510 
0153 + STATEMENT. THE CALLING SEQUENCE IS * PMNO1520 
0154 * BSI lt $DUMP * PMNO1530 
0155 * oc FORMAT * PMNO1540 
0156 * oC LIMIT. * PMNO1550 
0157 * oc LIMIT2 * PMNO1560 
0158 * WHERE LIMIT! AND LIMIT2 ARE THE LIMITS * PMNO1570 
0159 * BETWEEN WHICH THE DUMP IS TO OCCUR, AND® PMNO1580 
0160 * FORMAT IS A CODE INDICATING THE FORMAT * PMNO1590 
0161 * OF THE DUMP. IF FORMAT IS NEGATIVE, * PMNO1600 
0162 * THE AUXILIARY SUPERVISOR IS FETCHED * PMNO1610 
0163 * AND CONTROL PASSED TO IT. * PMNO1620 


@150 


ADDR REL ORJECT 


ST.NO~ 


0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
O17? 
0173 
C174 
0175 
0176 
0177 
9178 
€179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
C1e7 
C188 
0189 
C190 
0191 

9192 
9193 
0194 
0195 
0196 
0197 
0198 
0199 
a200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 

0212 

0213 
0214 
0215 
0216 
0217 
0218 
0719 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 

0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 

0242 
0243 
0244 
0245 
0246 


LABEL OPCND FT OPERANDS 


* * OZOOO-ENTERED WHEN THE CALLER WISHES TO 
* PERFORM A DISK 1/0 OPERATION. THE 

* CALLING SEQUENCE VARIES WITH THE 

* VERSION OF THE DISK I/O SUBROUTINE. 
* * $1200/$I400-ENTERED WHEN THE OPERATION- 

* COMPLETE INTERRUPT OCCURS ON 
* LEVEL 2/4. 

* 


*INPUT-N/A 
* 
*OQUTPUT-WORDS 6-4090 SAVED ON THE CIB ON A CALL 
* DUMP 
* 
*EXTERNAL REFERENCES—N/A 
* 
*EXITS- 
* NORMAL : 
*THE EXITS FROM THE SUBROUTINES AT $PRET 
$PST1ly SPST2y $PST3» $PST4» AND $STOP 
ARE BRANCH INSTRUCTIONS FOLLOWING A 
WAIT INSTRUCTION. $STOP TURNS OFF IN- 
TERRUPT LEVEL 5 AFTER THE START KEY IS 
NEPRESSED. 
THE EXETS FROM SEXIT,$LINKyAND $DUMP ARE 
TC THE CORE IMAGE LOADER, PHASE 1, 
AFTER THAT PHASE HAS BEEN FETCHED. 
*THE EXIT FROM DZ000 IS BACK TO THE 
CALLER AFTER THE REQUESTED DISK OPERA- 
TION HAS BEEN INITIATED. 
*THE EXITS FROM $1200/$1400 ARE BACK TO 
THE ADDRESSES FROM WHICH THE DISK OP- 
ERATION COMPLETE INTERRUPT OCCURED 
AFTER THE INTERRUPT HAS BEEN SERVICED 
BY THE APPROPRIATE ISS. 
* ERROR-N/A 


* 


* 
* 

* 

* 

* 

x 

* 

* 

* 

* 

* 

* 

x 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

+ 

* 

* 

* 

* 

* 

* 

* 
TABLES/WORK AREAS— * 
$ACDE * 
$CH12 * 
$CILA * 
$CLSw * 
$COMN * 
$CORE * 
$CTSw * 
$CXR1 * 
$CYLN * 
SOAOR * 
$DBSY * 
$CCYL * 
SOMPF * 
$DREQ * 
SFPAL * 
$GC OM 2G2 * 
$GRIN 262 * 
SHASH * 
$IBT2 * 
S$IBT4 * 
$IBSY * 
$iact * 
$KC SW * 
$LAST * 
SNNUP * 
SNXEQ * 
S$PBSY * 
$PGCT * 
SPHSE * 
SRMSW * 
$SCAT 2-4 & 
SSNLT * 
suri * 
SULET * 
$WRDIL * 
SWSOR * 
$XR3X 2-2? * 
* 

* 

* 

* 

* 

* 

* 

x 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
& 
* 
* 
* 

* 
* 
* 
* 

* 
* 

* 
* 
* 
* 


KHER HHHHHHHRHEHEHEH HEHEHE HEHEHE HEHEHE HEH HH 


i) 


ATTRIBUTES-REUSABLE 


NOTES- 
THERE ARE WATT INSTRUCTIONS AT $PRET+1, 
$STOP+1, AND S$PSTXti. DEPRESSING THE START 
KEY WILL RETURN CONTROL TO THE CALLER IN ALL 
CASES. 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
® 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
x 
REKEKE KKK KHEKKEKERESKEKRKEKKKKEERKEKKETERESEAKEKAEREKREKE 


1D0/SEQNO 


PMNO1630 
PMNO1L640 
PMNO1650 
PMNO 1660 
PMNO1670 
PMNO1660 
PMNO1690 
PMNO1700 
PMNO1710 
PMNO1720 
PMNO1730 
PMNO1740 
PMNO1750 
PMNO1760 
PMNO1770 
PMNO1780 
PMNO1790 
PMNO1800 
PMNOL810 
PMNO1820 
PMNO1830 
P¥NO1840 
PMNO1850 
PMNO 1860 
PMNO1870 
PMNO1880 
PMNO1890 
PMNO1900 
PMNO1910 
PMNO1920 
PMNO1930 
PMNO1940 
PMNO1950 
PMNO1960 
PMNO1970 
PMNO1980 
PMNO1990 
P MNO 2000 
PMNO 2010 
PMNO2020 
PMNO 2030 
PMNO2040 
PMNO 2050 
PMNO 2060 
PMNO 2070 
PMNO2080 
PMNO2100 
PMNO 2110 
PMNO2120 
PMNO2130 
PMNO2140 
PMNO2150 
PMNO 2160 
PMNO21L70 
PMNO2180 
PMNO?190 
PMNO2200 
PMNO2210 
PMNO2220 
PMNO2230 
PMNO2240 
PMNO2250 
PMNO2260 
PMNO2270 
PMNO2280 
PMNO2290 
PMNO 2300 
PMNO2305 
P¥NO2310 
PMNO2320 
PMNO2330 
PMNO 2340 
PMNO2350 
PMNO2360 
PMNO 2370 
PMNO2380 
PMNO2390 
PMNO2400 
PMNO 2410 


-PMNO2420 


PMNO2430 
PMNO2440 
PMNO2450 


eAppendix H i151 


ADDR 


0280 
0004 
9005 
0096 
0007 


0008 
0009 
OOOA 
000B 
000c 
0000 


OOOF 
ONOF 
0010 
0011 
0912 
0013 
0914 


00?0 


0028 
9929 
OO2A 


902C 
0020 
002E 
00 2F 
0930 
O03L 
0932 
0033 
0034 
9035 
0036 
0937 


0038 


9039 
OO03A 
0038 
093C 
003C 
903D 
OO3E 


003F 
0040 
0041 
0042 
9043 
0045 
9046 
047 
0949 
ONGA 


e152 


REL OBJECT 


Qg000 


ooo000 


o00 FPaou0o rT0Oo00090 ooogo00 


Qoo°o 


oeooocooeag000 


OFFA 
0000 
0000 
0000 


0000 
0000 
00B3 
9000 
00C4 
oo9l 


0000 
0000 
0000 
0000 
0000 
0000 
000Cc 


0008 


0000 
3000 
4C 800028 


0000 
onoo 
0000 
9009 
9000 
0000 
0000 
0000 
0000 
9000 
9000 
0000 


7019 


0000 
1810 
7017 
0000 
0001 
0004 
FFFF 


0000 
D8n9 
4009 
69D4 
C480003F 
D003 
CAFS 
440000F2 
COF?2 
7008 


ST.NO. 


0248 
0749 
0250 
0251 
025? 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0766 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
9278 
0279 
0280 
0281 
0282 
0283 
284 
0285 
0286 
0287 
0788 
0289 
e290 
9291 
02.92 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
03C8 
0309 
0310 
0311 
0312 
0313 
C314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
03226 
0327 
0328 


LASEL OPCD FT OPERANDS 


* PROVIDE PARAMETERS FOR SYSTEM LOADER 


* 
ABS 
GRG 
nc 
$CIBA OC 
$CH12 OC 
$COMN OC 
* 


* ULTIMATE RESIDENCE OF THE 


x 


4 


4095-* WD CNT FOR WRITING CORE ON CIB 


*—* 
*-t 
*—* 


SCTR ADOR OF THE CIB 
ADOR GF CHANNEL 12 INDICATOR 
LENGTH OF COMMON 


(IN WORDS) 


INTERRUPT TV 


$LEVO DC *%—* LEVEL 0 BRANCH ADDRESS 
$LEVL OC *—* LEVEL 1 BRANCH ADDRESS 
$LEV2 OC $1200 LEVEL 2 BRANCH ADOR 
$LEV3 OC *-* LEVEL 3 BRANCH ADDRESS 
$LEV4 DC $1400 LEVEL 4 BRANCH ADDR 
$LEVS DC $STOP LEVEL 5 BRANCH ADDR 
x* 
* 
SCORE DC #—-* SIZE OF CORE, E.G.2 4096=4K 
$CTSW AC %—-* CONTROL RECORD TRAP SWITCH 
$DADR DC *#-* SCTR ADDR OF PROG TO BE LOADED 
$SCAT DOC *-* NON ZERO=SCA INTRPT PNDNG 2-4 
$DREQ OC #-* IND. FOR REQUESTED VERSION DKI/O 
$1BSY OC *-*% NON-ZERO IF CD/PAP TP DEV. BUSY 
$HASH BSS £ 12 WORK AREA 
* 
* 
$SCAN BSS B 1132 SCAN AREA 32 
* 
* 
* 
* TRAP FOR PREOPERATIVE I/O ERRORS 
* 
$PRET 0C *—* ENTRY POINT 
WALT WAIT TIL START KEY PUSHED 
BSC 1 $PRET RETURN TO CALLER 
* 
*x 
$TREQ OC *-* ADDR OF INT REQUEST SUBROUTINE 
SULET 0C *-*® ADDR OF LET, LOGICAL DR O 
pc *-* ACDR OF LET, LOGICAL DR 1 
nc #-* ADDR OF LET, LOGICAL DR 2 
oc %-* ADDR OF LET, LOGICAL DR 3 
oc *-* ADDR OF LET, LOGICAL DR 4 
$¥OCT OC *-* ZERO IF NO 1/0 IN PROGRESS 50 
SLAST OC *-* NON-ZERO WHEN LAST CARD SENSED 
sNnuP DC *-* DO NOT DUP IF NON-ZERO 
$NXEQ OC *—-* 00 NOT EXECUTE IF NON-ZERO 
$PBSY CC *-* NON-ZERO WHEN PRINTER BUSY 
$PGCT OC *#-* PAGE NO. FOR HEADINGS 


* 


* CALL EXIT ENTRY 
* 


SEXIT MOX 

* 

*** CALL LINK 
* 


$LINK OC 
SRA 
MDX 
BSS € 
$8900 OC 
oc 
$S910 OC 
* 


*** SAVE 1ST 4K OF CORE ON 


* 

$DUMP OC 
STD 
BSI 
STx 1 
LD I 
STO 
LOD 
BST L 
LD 
MDX 

* 


$Scoo 


ENTRY 


t— * 
16 
$$100 
0 

1 


POINT TO SKELETON SUPERVISOR 


BR TO FETCH CIL, PHASE 1 56 


POINT 


ENTRY POINT 


BR TO FETCH CIL, PHASE 1 


$CIBA~1 *IN CONNECTIGN WITH DUMP 
-1 CALL EXIT INDICATOR 


*— * 

SACEX 
$$250 
$CXR1 
$DUMP 
SDMPF 
$S900 
02000 
£83900 
$S100 


THE CIB 


ENTRY POINT 
SAVE ACCUMULATOR, EXTENSION 
CHK PNONG INTRPT 


SA 


VE XR1 


SAVE DUMP FORMAT CODE 


SAVE WDS 6-4095 ON CIB 


BR TO FETCH CIL, PHASE 1 


*#e* SUBR TG CHECK IF ANY INTRPT IS PENDING 


* 


57 


DISK PARAMETERS FOR SAVING CORE 


63 
2-4 


10/SEQNG 


PMNO2470 
PMNO2480 
PMNO2490 
PMNO2590 
PMNO2510 
PMNO25 20 
PMNO2530 
PMNO2540 
PMNO2550 
PMNO2560 
PMNO2570 
PMNO2580 
PMNO2590 
PMNO?690 
PMNO2610 
PMNO2620 
PMNO?630 
PMN02640 
PMNO2650 
PMNO 2660 
PMNO2670 
PMNO2680 
PMNO2690 
PMNO2700 
PMNO2710 
PMNO2720 
PMNO27 30 
PMNO2740 
PMNO2750 
PMNO2760 
PMNO2770 
PMNO2780 
PMNO2790 
PMNO2800 
PMNO2810 
PMNO2820 
PMNO2830 
PMNO2840 
PMNO2850 
PMNO2860 
PMNO2870 
PMNO2880 
PMNO2890 
PMNO2900 
PMNO2910 
PMNO2920 
PMNO?930 
PMNO2940 
PMNO2950 
PNNO2960 
PMNO2970 
PMNO2980 
PMNO2990 
PMNO3000 
PMNO3010 
PMNO3020 
PMNO3030 
PMNO3040 
PMNO3050 
PMNO3060 
PMNO3070 
PMNO 2080 
PMN03090 
PMNO3100 
PMNO3L10 
PMNO3120 
PMNO3130 
PMNO3140 
PMNO3150 
PMNO3180 
PMNO3185 
PMNO3190 
PMNO3200 
PMNO3210 
PMNO3220 
PMNO3230 
PMNO3240 
PMNO3250 
PMNO3251 
PMNO3252 
PMNO 3253 


ADOR 


0048 
004C 
004D 
O04E 
0050 


9052 
0053 
0054 
0056 
0057 
0058 


0059 
0058 
905C 
0050 
OOSE 
005F 
9061 
0062 


0063 
0064 


0065 
0068 


0071 
0072 
9072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
OOTA 
0078 
oo7Cc 
0070 
OO7E 
OOTF 
0080 


0081 
0082 
0083 


0085 
0086 
0087 


0089 
O08A 
0088 


0080 
OC8E 
008F 


0091 
0092 
0093 


REL OBJECT 


o 


2POgooooeD 


oo 


=) 


ooo0o0o0oo0ooqcoo0cooog0 0°09 


oo 


09 


200 


99 


COES 
E8C3 
4C€20004C 
4C 80004B 


COEB 
poc2 


65800039. 


C101 
18D0 
€100 


65000000 
08B8 
40EE 
COFC 
1890 
440000F2 
40E9 
4102 


0000 
0000 


0003 
0009 


0000 
0000 
9000 
9000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
9000 
0000 
0000 
0000 
90900 


9000 
3000 
4c80008! 


00900 
3000 
4€ 890085 


0009 
3000 
4€800089 


9000 
3000 
4€80008D 


9000 
3000 
4£€00091 


0329 
0330 
0331 
0332 
0333 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0286 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
9396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0495 
0406 
0407 


LABEL OPCD FT OPERANDS 


$$750 OC 
$$300 LD 
OR 
BSC 
RSC 
* 


*-* ENTRY POINT 
$IOcT IS THERE INTRPT PNDNG 
$SCAT *#OR SCA INTRPT PNONG 
L $5S300,2 *THEN BR, ITF ALL INTRPT 
I $8250 *I1S SERVICED-RETURN 


wee FETCH CORE IMAGE LOADER, PHASE 1 


* 
$S000 LOD 
$S$100 STO 
LDXx 
LD 
RTE 
LD 


$$910 

S$RMSW 
f1 SLINK 
11 

16 
10 


SAVE EXIT-LINK-DUMP SWITCH 
LINK ADDR TO XR1 
FETCH 2ND WD OF LINK NAME 


FETCH 1ST kD OF LINK NAME 


* $8150¢! CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 


$S150 LOX 
STD 


$5200 SRT 


$GCOM OC 
$GRIN OC 


* 
$FLSH 0C 


$CWCT DC 


$CCAD 0C 

$LSAD OC 

$DZ1N OC 

$DCDE DC 

SPHSE OC 

$SUFIO OC 

$WSDR OC 

SWRDL OC 

$KCSW DC 

SUFDR DC 

$CPTR OC 

$1132 NC 

$1403 DC 

* TRAP FOR 

* 

$PST1 OC 
WAIT 
BSC 

* 

* TRAP FOR 

* 

$PST2 OC 
WAIT 
BSC 

* 

* TRAP FOR 

* 

$PST3 OC 
WAIT 
BSC 

* 

* TRAP FOR 

x 

$PST4 NC 
WAIT 
BSC 


* 
* 
* PROGRAM STOP KEY TRAP 
* 
$ 


STOP OC 
WAIT 
ROSC 


Li #-* ADDR END OF DKI/G-1 TO XR1L 
$LKNM SAVE LINK NAME 
$$250 CHK ANY PNDONG INTRPT 2-4 
$CILA 
16 
tL 02z000 FETCH CI LOADER, PHASE 1 
$S250 CHK DISK OP FINISHED 2-4 
t2 BR TO CI LOADER, PHASE 1 
*—* GRAPHIC SUBR PACKAGE INDR 262 
#—* GRAPHIC INITLZN PROGRAM INOR 262 
262 
3 RESERVED FOR 2250 262 
9 PATCH AREA 
*—* =FLUSH-TO-NEXT-JOB SWITCH L#FLUSH 
E 0 
*#—-* WORD COUNT AND SECTOR ADDRESS 
#-t FOR SAVING/RESTORING COMMON 
*-* ADDR FOR SAVING/RESTORING COMMON 
#—-* SCTR ADDR OF 1ST LOCAL/SOCAL 
#-* DISKZ/1/N INDICATOR (-1,0,4T) 
#-* LOGICAL ORIVE CODE FOR PROGRAM 
*-* NO. OF PHASE NOW IN CORE 
a—* UNFORMATTED 1/0 RECORD NOW 
#-* WORKING STORAGE ORIVE CODE 
*-* LOADING ADDR OF THE CORE LOAD 
*~* 1 TF KB,CP BOTH UTILIZED 
*-* UNFORMATTED 1/0 DRIVE CODE 
e-* CHANNEL 12 INDICATOR FOR CP 
#—-* CHANNEL 12 ENDICATOR FOR 2132 
*#—-* CHANNEL 12 INDICATOR FOR 1403 
POSTOPERATIVE 1/0 ERRORS ON LEVEL 1 
*—* ENTRY POINT 
I $PST1 RETURN FO DEVICE SUBROUTINE 
POSTOPERATIVE I/QG ERRORS ON LEVEL 2 
—* ENTRY POINT 
I $PST2 RETURN TO DEVICE SUBROUTINE 
POSTOPERATIVE I/0 ERRORS ON LEVEL 3 
4-* ENTRY POINT 
I $PST3 RETURN TO CEVICE SUBROUTINE 
POSTOPERATIVE I/0 ERRORS ON LEVEL 4 
*—% ENTRY POINT 
I $PST4 RETURN TO DEVICE SUBROUTINE 


*— & 


Yt $STaP 


ENTRY POINT 
WAIT TIL START KEY PUSHED 
RETURN TO CALLER 


ID/SEQNO 


PMNO3254 
PMNO3255 
PMNO3256 
PMNO3257 
PMNON3758 
PMNO3270 
PMNO3280 
PMNO3290 
PMNO3300 
P¥ENO3310 
PMNO3350 
PMNO3360 
PMNO3370 
PMNO3380 
PMNO 3400 
PMNO3410 
PMNO3415 
PMNO3417 
PMNO3470 
PMN03430 
PMNO3440 
PMNO3460 
PMNO3470 
PMNO3480 


“PMNC3490 


PMNO 3500 
PMNO3510 
PMNO3520 
PMNO3530 
PBNO3540 
PMNO 3550 
PMNO3550 
PMNO3570 
PMNO3580 
PMNO3590 
PMNO3600 
PMNO3610 
P¥N03620 
PMNO3630 
PMNO3640 
PMNO3650 
PMNO3660 
PMNO3670 
PMNO3680 
PMNO3690 
PMNO3700 
PMNO3710 
PMNO3730 
PMNO3740 
PMNO3750 
PMNO3760 
PMNO3770 
PMNO3780 
PMNO3790 
PMNO3800 
PMNO3810 
PMNO03820 
PMNO3830 
PMNO3840 
PMNO3850 
PMNO3860 
PMNO3870 
PMNO3880 
PMNO3890 
P™N03900 
PMN0D3910 
PMNO3920 
PMNO3930 
PMNO 3940 
PMNO3950 
PMNO 3960 
PMNO3970 
PMNO3980 
PMN03990 
PMNO4000 
PMNO4010 
PMNO4020 
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ADDR REL OBJECT 


0095 
0096 
0097 
0098 
0099 


009A 
0098 
009C 
0090 
ON9E 


N09F 
00A0 
90a 
00A2 
00A3 


ONA4 
ONAS 
O0A6 
OOAT 
OOA8 
OOA9 
OOAA 
OOAB 
OOAC 
OOAD 
OOAE 
OOAF 
00B0 
001 
onR2 


0083 
00B4 
00B5 
0086 
00B7 


0088 
OOBA 
OOBC 
OOBF 
OOBF 
00co 
00C 2 
00c2 
o0¢c3 


@154 


eoooso eooo5D 


oooo°0 


eses,0o00o00gq0 000000 


eooo9o 


0000 
0000 
9000 
0000 
00090 


0000 
0000 
9000 
0000 
0000 


9000 
0000 
9n00 
0000 
0000 


0000 
9000 
0009 
0000 
0000 
9000 
0000 
0900 
0000 
00090 
0000 
0000 
0000 
9000 
0000 


0000 
6906 
6A07 
2807 
080A 


44000000 
65000000 
66000000 
2000 
c802 
4CC000B3 
9000 
0000 
9009 


ST.NO. 


0409 
0410 
0411 
0412 
0412 
0414 
0415 
0416 
0417 
C418 
0419 
0420 
0421 
0427? 
0423 
0424 
0425 
0426 
04277 
0428 
0429 
0430 
0471 
0432 
0433 
434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
9462 
0464 
0465 
0466 
0467 
C468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 


LABEL OPCO FT OPERANDS 


en ethene 


BUT THE AREA CODE. 


*e* DISKL AND DISKN WILL NOT WRITE BEL 
ADDRESSES (EXCEPT WRITE IMMED). 


*%* FOLLOWING 
* 
$FPAD DC 
oc 
Nc 
0c 
oc 
* 


SCTR 


s**t 
~* 
£—%& 
tn & 
a—* 


FILE 
FILE 
FILE 
FILE 
FILE 


*e* THE ARM POSITION IS 


*** OCCURS. 
* 
SCYLN DOC 
oc 
oc 
Nc 
oc 
* 
*%% BELCW ARE 
ee INDICATES 


*x 
$ACDE OC 


* 


eooo0o9e 


THE 0 


ARM 
ARM 
ARM 
ARM 
ARM 


TSK 


PROTECT ADOR, 
PROTECT ADOR, 
PROTECT ADOR, 
PROTECT ADOR, 
PROTECT ADOR, 


PARAMETERS USED 8Y THE DISK I/O SUBROUTINES. THE 
LOGICAL ORIVE CODE IS FOUND IN BETS 1-3 FOR ALL 
BIT O WILL ALWAYS BE ZERO. 


OW THE 


LOGICAL OR O 
LOGICAL DR 1 
LOGICAL DR 2 
LOGICAL OR 3 
LOGICAL DR 4 


UPDATED WHENEVER A SEEK 


POSITION FOR LOGICAL DRIVE 
POSITION FOR LOGICAL DRIVE 
POSITION FOR LOGICAL DRIVE 
POSITIGN FOR LOGICAL DRIVE 
POSITION FOR LOGICAL ORIVE 


AREA CODES. AZ 


ERO 


THE CORRESPONDING DRIVE IS NOT 
*** ON THE SYSTEM 


*—+* 
+ 
*—* 
koe 
*—* 


**&e THE ADR OF THE 


*** WORD BELOW, 


AREA 
AREA 
AREA 
AREA 
AREA 


CODE FOR LOGI 
CODE FOR LOGI 
CODE FOR LOGI 
CODE FOR LOGI 
CODE FOR LOGI 


CAL ORIVE 0 
CAL DRIVE tL 
CAL DRIVE 2 
CAL ORIVE 3 
CAL DRIVE ¢ 


CYLINDER IN WHICH A DEFECT OC- 
*** CURS, IF ANY, IS STORED IN THE LST, 2ND, OR 3R 


**e 2ND, OR 3RD DEFECT 


* 


GN TRE CARTRIDGE. 


SDCYL DC #—* DEFECTIVE CYLINDER ADDRESSES 
oC #-* FOR LOGICAL DRIVE 0 
Nc *—* 
oc *-* DEFECTIVE CYLINDER ADDRESSES 
oC *-* FOR LOGICAL ORIVE 1 
OC *-t 
oc *#-# DEFECTIVE CYLINDER ADDRESSES 
DC *#-* FOR LOGICAL DRIVE 2 
oc +—* 
oc #*-* DEFECTIVE CYLINDER ADDRESSES 
oc *-* *FOR LOGICAL ORIVE 3 
DC &-%& 
oc #—-* DEFECTIVE CYLINDER ADDRESSES 
oc *-* FOR LOGICAL DRIVE 4 
oc k— k 
* 
* ILSO2--THIS SUBROUTINE SAVES XRl, XR2,_ STATUS, 
* AND THE ACCUMULATOR AND ITS EXTENSTON. 
* THE ADDRESS OF THE INTERRUPT SERVICE ROU- 
* TINE IS STORED IN $1205 BY PHASE 2 OF 
* THE CORE IMAGE LOADER. WORD 10 ALWAYS 
* CONTAINS THE ADDRESS OF $1200. 
* 
* 
* 
$1200 0C + ENTRY PT (LEVEL 2 INTRUPT) 
STX 1 $121041 SAVE XR1 
S¥X 2 $1210#3 SAVE XR2 


sts 
STN 


$1210 
$1290 


+4 


* $120541 CONTAINS ADDR 


$1205 BSI L 
$1210 LDX L1 
LOX L2 
LOS 
LOD 
pasc I 
$1290 BSS €£ 
DC 
oC 


+-* 
X—-* 
t—*% 

0 
$1290 
$1200 
0 

—-% 
*-* 


STORE STATUS 
SAVE ACCUMULAT 


OR, EXTENSION 


D 


DEPENDING ON WHETHER IT £S THE LST, 


fad IND ot Ud ND me RD ee ND tet ND net 


INTERRUPT ENTRY PT TO DKI/C 
BR TO SERVICE THE INTERRUPT 


RESTORE xXR1 
RESTORE XR2 
RESTORE STATUS 


RESTORE ACCUMULATOR ,EXT 
RETURN FROM INTERRUPT 


CONTENTS OF ACCUMULATOR AND 


*EXTENTION 


10/SEQNG 


PMNO4040 
PMNO4050 
PMNO4060 
PMNO4070 
PMNO4080 
PMNO4090 
PMNO4100 
PMNO4110 
PMNO4120 
PMNO4130 
PMNO4140 
PMNO4150 
PMN04160 
PMNO4170 
PMNO4180 
PMNO4190 
PMNO4200 
PMNO4210 
PMNO04220 
P¥™N04230 
PMN04240 
PMNO4250 
PMN04 260 
PMNO4270 
PMNO4280 
PMN04290 
PMNO4300 
PMNO4310 
PMNO4320 
PMNO4330 
PMN04340 
PMNO4350 
PMNO4360 
PMNO4370 
PNNO4380 
PMNO4390 
PMNO4400 
PMNO4410 
PMNO4420 
P™NO04430 
PMN04440 
PMNO4450 
PMN04460 
PMNO4470 
PMNO4480 
PMN04490 
PMN04500 
PMNO4510 
PMN045 20 
PMNO45 30 
PMNO4540 
PMNO4550 
PMN04560 
PMNO4570 
PMNO04590 
PMNO4600 
PMNO4610 
PMNO 4620 
PMN04630 
PMNO4640 
PMNO4650 
PMN04660 
PMNO04670 
PMNO4680 
PMNO4690 
P¥™NO04700 
PMNO4710 
PMNO4720 
PMNO4730 
PMNO4740 
PMN04750 
PMNO4760 
PMNO4770 
PMNO4780 
PMNO4790 
PMNO4800 
PMN04810 
PMNO4820 
PMNO4830 


ADDR REL OBJECT 


00C4 
00cs 
00C6 
00C7 
00C8 
00c9 
OOCA 
0ncA 
00Ccn 
OocFr 
o00D0 
0001 
ONn2 


0003 
0005 
0006 
0008 
OODA 
000B 


es CScoeosoeoo0c00o0°RaC0 5 


oo0o°0 
oS ou 


9000 
OODE 
OO0£0 
OnE 
One 
ONE? 
00€3 


oo°0 °o 


°o 


ONES 
OOES5 


oD 


NOF6 O 
OOE7 9 
OOE8 09 
OOFA 00 
OOEC 0 


NO0ED 
QOEE O 


OLSKZ 


0000 
0818 
280E 
690F 
6A10 
0816 
1002 
4C 100000 
44480002C 
FFFE 
6109 
0810 
1140 


45800000 
2000 
65000000 
660090000 
C803 
4CC000C4 


0000 
0092 
0000 


NFOO 
0001 
0300 


0000 
OFOL 


0000 
O8FC 
4C4000FA 
440000 3F 
FFFE 


0001 
0000 


ADOR REL OBJECT 


ST.NO. 


0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
C550 
0551 
0552 


ST.NO. 


0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
9567 
0568 


LABEL OPCD FT OPERANDS 
x 
* ILSO4--THIS SUBROUTINE SAVES XRl_ XR2, STATUS, 
* AND THE ACCUMULATOR AND ITS EXTENSION. 
* If THE INTERRUPT IS FOR A KEYBOARD REQ- * 
* UEST,AND IF A MONITOR PROGRAM IS IN CON- * 
* TROL, CONTROL 1S PASSED TO DUMP. OTHER- * 
* WISE, CONTROL IS PASSED TO THE KEYBOARD/ * 
* CONSOLE PRINTER SUBROUTINE. WORD 12 AL- * 
* WAYS CONTAINS THE ADDRESS OF $1400. * 
«x 
* THE TABLE BELOW CONTAINS THE ADDRESSES OF THE 
* INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES 
* ON LEVEL 4. 
® 
* 
* 
$1400 0C a ENTRY POINT 
STD $1490 SAVE ACCUMULATOR, EXTENSION 
STs $1410 SAVE STATUS 
STIX 1 $1410+2 SAVE XR1 
STX 2 $1410#4 SAVE xR2 
x10 $1492 SENSE DSW 
SLA 2 IS THIS INTERRUPT REQUEST 
BSC L $1403,- BR IF NOT INTERRUPT REQUEST 
BSE I $IREQ BR If INTERRUPT REQUEST 
oc -2 ERROR CODE 
$1403 LOX 19 NO. DEVICES ON LEVEL TO XR} 
x10 $1494 SENSE ILSW 
SLCA 1 FIND CAUSE OF INTERRUPT 
* $140541 CONTAINS ADDR OF LEVEL 4 18T MINUS 1 
$1405 BSI Il *-# BR TO SERVICE THE INTERRUPT 
$1410 LDS 0 RESTORE STATUS 
LOX Ll #-# RESTORE XR1 
LOX L2 *-* RESTORE XR2 
LoD $1490 RESTORE ACCUMULATOR, EXT. 
BOSC I $1400 RETURN 
* 
* CONSTANTS AND WORK AREAS 
* EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARTES 
*x 
SDDSW 0C *-4 DSW FOR THE DESK 
$1490 BSS E 2 CONTENTS OF ACCUMULATOR, EXT. 
$1492 0C *-* 
$SYSC EQU #-1 VERSION AND MOD NO. 
DC /OFOO IGCC FOR SENSE I0CC FOR KB/CP 
$1494 8SS 1 PATCH AREA 
DC 0300 IGCC FOR SENSING ILSWO4 me 
* PATCH AREA 2-2 
* FIX FOR APAR N5044 2-2 
* 2-2 
$1496 NC a XR3 SETTING DURING XEQ 2-2 
oc /0F01 SENSE KEY BOARD W RESET2-2 
* 2-2 
$1420 DC *—* ENTRY POINT FLUSH JOB 2-2 
x10 $1496 SENSE KEY BDARD W RESET2~-2 
BOSC L $1425 TURN OF INTERRUPT 2-2 
$1425 BST L $DUMP BRANCH TO WAIT OUT PEND2-2 
DC -2 *INTER AND GET AUX SUP 2-2 
x 2-2 
BSS 1 PATCH AREA 2-2 
SOBSY 0C %-* NON-ZERO WHEN DISK I/O BUSY 
LAREL OPCD FT OPERANDS 
REKEEKESEKKEEESERKKEKESHE EEKEEEKAE KEE EKA KEKRKVKKEKEEKES 
* * 
*STATUS-VERSION 2, MODIFICATION 1 * 
* * 
*PROGRAM NAME- * 
*  #*FULL NAME-FORTRAN/SYSTEM DISK 1/0 SUBROUTINE * 
* CALLING SEQUENCE- * 
* Lon PARAM * 
* BSI Lt 02z000 * 
* WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * 
* CELL CONTAINING THE FUNCTION CODE AND THE * 
* ANDR OF THE 1/0 BUFFERyI.E., ADOR OF WD CNT. * 
* SFE *CAPABILITIES* FOR DISCUSSION OF PARAM— * 
* ETERS. * 
* 


1C/SEQNO 


PMNO4850 
PMNO4860 
PMNO4870 
PMN04880 
PMNO4890 
PMNC4900 
PMNO4910 
PMN04920 
PMN04930 
PMN04940 
PMN04950 
PMNO4960 
PMNO4970 
PMNO4980 
PMN04990 
PMNOSO000 
PMNO5010 
PMNO5020 
PMNO5030 
PMNO5040 
PMNO5050 
PMNO5060 
PMNO5070 
PMNO05080 
PMNO5090 
PMNO5100 
PMNO5110 
PMNO5120 
PMN05130 
PMNO5140 
P¥NO51250 
PMNO5160 
PMNO5170 
PMNO5180 
PMNO5190 
PMNO5 200 
PMNO5210 
PMNOS220 
PMNO5230 
PMNO5240 
PMNO5250 
PMNO5260 
PMNO5270 
PMNO5280 
PMNO5290 
PMNO05300 
PMNO5310 
PMNO5330 
PMNO5340 
PMNO5350 
PMNO5360 
PMNO5 370 
PMNO5380 
PMNOS390 
PMNO5400 
PMNO5410 
PMNO5420 
PMNO54 30 
PMN05440 
PMN05450 
PMNO5460 
PMNO5470 


10/SEQNO 


PMNO5490 
PMNO5500 
PMNO5510 
PMNO5520 
PMNO55 30 
PMNO5540 
PMNO5550 
PMNO5560 
PMNO5570 
PMNO5580 
PMNO5590 
PMNO5600 
PMNO5610 
PMNO5620 
PMNO5630 
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ADDR REL OBJECT 


NOFO 
00FO 
O0FI 
O0F2 
00F3 
00F4 
O0F2 
OOF 3 
OOF5 
00F6 


OOFT 
O0FB 
o0F9 
OOFA 
OOFR 
OOFC 
OnFn 
OnFE 
OOFF 
9190 
0101 
0102 
0103 
0104 


0106 
0107 


o1cs 
NINA 
O1L0Cc 


O10E 
O1LLO 
0112 
0113 
0114 
Onis 
0116 
O17 


@156 


9929085 


oeo00 00000000059 o7200 


oo 


09 


00 


00 
0 


ooaoa7n090 


9000 
OOEF 
FF6A 
NOES 
0001 


0000 
T40000EE 
TOFD 
7002 


90n0 
7015 
690F 
6A10 
10908 
po3c 
18D9 
N056 
6211 
6AEN 
COFO 
DOF4 
TO4E 
4€000000 


6908 
OBIE 


65000000 
66000000 
4CB8000F7 


65000000 
660000F2 
0819 
noc9y 
4850 
TOEE 
c80n 
9900 


ST.NO. 


0569 
0570 
0571 

0572 
0573 
0574 
0575 
0576 
a577 
0578 
0579 
0580 
058) 

0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
059? 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0601 

0602 
0603 
0604 
0605 
0606 
0607 
0608 
0610 
0611 

0612 

9613 
0614 
0615 
0616 
0617 
0618 

0619 
0670 
0621 

0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631 

0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 
650 
0651 
065? 


HHReRKHRHHHHEHEH HH HHH H 


LABEL OPCD FT OPERANDS 
*PURPOSE- * 
* TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* 
* TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * 
* MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN * 
* FORTRAN. THUS,IT IS [NTENDED FOR USE IN AN * 
&*  €RROR-FREE ENVIRONMENT. * 
* * 
*METHOD- * 
*  DISKZ REQUIRES A BUFFER,THE LENGTH OF WHICH IS* 
* 2 GREAYER THAN THE NO. WORDS TO BE READ/WRIT- * 
* TEN. * 
* * 
*CAPABILITIES AND LIMITATIONS— * 
THE WO CNT,AS WELL AS DZ000,MUST BE ON AN EVEN® 
BOUNDARY,MUST BE IN THE RANGE 0-32767~ THE * 
DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * 
ADOR»WHICH FOLLOWS THE WD CNT. THE FUNCTION * 
INDICATOR MUST BE XxX00 FOR A READ OR XXO1 FOR * 
A WRITEgWHERE *XX* MEANS ANY 2 HEXADECIMAL * 
CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* 
{READ OR WRETE MAY BE INDICATED.) AUTOMATIC * 
SEEKING IS PROVIDED AS A PART OF READ/WRITE. * 
A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * 
DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * 
* 
SPECIAL FEATURES— * 
NISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * 
ABGVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* 
FUNCTIONS PLUS OTHERS. * 
* 
RKEKKEKETEKKSERAEKAKEEKKKEKKKEKEREKREKEKEEKEKEKKEKREKEKEE 
* PROVIDE PARAMETERS FOR SYSTEM LOADER 
*« 
BSS E— 0 
oc $ZEND-* DISKZ WORD COUNT 
oc -"0ZI0 PHASE ID 
oc $ZEND-6-#4+1 ADDR OF SLET EXTRACT 
Dc 1 NG. ENTRIES IN SLET EXTRACT 
ORG 2 
DZ000 OC +—-* ENTRY POINT 
MOX { $DB8SY,0 LOGP UNTIL OPERATION iN 
MDX *-3 *PROGRESS IS COMPLETE 
MOX 02020 BR AROUND INT ENTRY POINT 


* 
* INTERRUPT ENTRY POINT 
* 
DZ010 OC *—* INTERRUPT ADDRESS 
MDX 07180 BR TO SERVICE INTERRUPT 
DZ020 STX 1 °DZ100#1 SAVE XR1 


STX 2 NZ100#3 SAVE XR? 
SLA 8 SHIFT INDICATOR 8 BITS 
STO 02945 SAVE FUNCTION INDICATOR 
RTE 16 
STO DZ235+1 SAVE ADDR OF THE I/O AREA 
DZ030 LOX 2 *TCNT TURN BUSY [NDICATOR ON AND 
STX 2 $DBSY *SET RETRY COUNT 
Lo. 0Z000 
STO 02010 
MDX 12230 BR TO CONTINUE 
DZ060 BSC L ** BR TO SERVICE THE INTERRUPT 
* 
* START ALL DISK OPERATIONS 
* 
DZ070 STX 1 DZ180+1 SAVE ADDR OF THE I/O AREA 
x10 02904 START AN OPERATION 
*® 
* RETURN TO USER 
* 
DZ100 LOX Li *-* RESTORE XR1 
LOX L? *#-* RESTORE XR? 
BSC 1 02010 RETURN 
* 
* SERVICE ALL INTERRUPTS 
* 
DzZz180 LOX Ll *-# ADDR OF I/O AREA TO XR1 
LDx 12 DZ000 ADDR OF DZ000 TO XR2 
x10 DZ910 SENSE THE DSW 
sto $D0SW SAVE THE DSW 
BOSC - SKIP IF ERROR BIT SET 
Mox DZN60 BRANCH IF ERROR BIT NOT SET 
p2185 LOD 02902 RESTORE WORD COUNT 
stD 61:0 *AND SECTOR ADDRESS 


ID/SEQNO 


PMNO5640 
PMNO5650 
PMNO5660 
PMNO5670 
PMNO5680 
PMNO5S90 
PMNO5700 
PMNO5710 
PMNO5720 
PMNO5730 
PMNO5740 
PMNO5750 
PMNO5760 
PMNO5770 
PMNO5780 
PMNO5790 
PMNO5S800 
PMNO5810 
PMNO5820 
PMNO5830 
PMNO5840 
PMNO5850 
PMNO5860 
PMNO5870 
PMNO5880 
PMNO5890 
PMNO5900 
PMNO5910 
PMN05920 
PMNO5930 
PMNO5940 
PMNO05960 
PMN0O5970 
PMNO5980 
PMN05990 
PMN06000 
PMNO6010 
PMNO06020 
PMNO6030 
PMNO6050 
PMNO6060 
PMNO6070 
PMN06080 
PMNO5090 
PMNO6100 
PMNO6110 
PMNO6120 
PMNO6130 
PMNO6140 
PMNO6150 
PMN06160 
PMNO6170 
PMNO6180 
PMN06190 
PMNO6200 
PMNO6210 
PMNO6220 
PMNO6230 
PMN06240 
PMNO6250 
PMNO6 260 
PMNO6270 
PMN06280 
PMN06 290 
PMN06300 
PMNO6 310 
PMNO6320 
PMN06330 
PMN06340 
PMNO6350 
PMNO6 360 
PMN06370 
PMNO06380 
PMNO06390 
PMN06400 
PMNO6410 
PMN06420 
PMNO6430 
PMN06440 
PMN06450 
PMNO6460 
PMN06470 


AND 


0118 
OLIA 


O1LLB 
O1Le 
O11D 
OLLE 
OVLF 
0121 


012? 


012? 
0123 
0124 
Q125 
0126 
0177 
0128 
0129 
O1L2A 
0128 
01 2C 
0120 
OLZE 
O1L2F 
0130 
0131 
0132 
0133 
0134 
0135 
0336 
0137 
0138 
0439 
013A 
9138 
N13C 
0130 
O13E 
O13F 
0140 
0141 
014? 
143 


0144 
OOF2 


0146 
0147 
0148 
O14A 
OV4B 


O14c 
0140 


O14E 
O14F 
0151 


9152 
0154 
0156 
0157 
0158 


REL OBJECT 


09° T4FFOOEE 


Oo 7939 


C812 
COl4 
4293 
1810 


aoo00o0°0 


70DD 


9009 


0001 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
012? 
0000 
0000 
0000 
0000 
oono 
5002 
5004 
FECO 
0001 
0080 
0600 
0008 
5000 
OFFR 
a0n0 
0701 
0007 
000A 
009F 
FFFB 
0000 
0400 
0141 
9000 
FFFF 


ooo 2-090 e709 0000909900090 0900 0000000999000 


000? 


18190 
DOA6 


1000 
TORC 


0 COE3 
0 TOCF 


0 COES8 


O00 44000028 


oO 717036 


90 74010032 
00 65000000 


0 ¢900 
0 O8scc 
oO 9805 


0 04800191 


9 
nN 
09 74FF0032 
0 
0 


ST.NO. 


0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
o708 
0709 
0710 
0711 
0712 
0713 
0714 
9715 
0716 
OT17 
0718 


0719 
0720 
0721 
072? 
0723 
0724 
9725 
0726 
0727 
0728 
0779 
0730 
0731 
0732 
0733 
0734 


LABEL OPCN FT OPERANDS 


MDX 
MOX 
* 


* TRAP OUT TO 


* 
Lec 
LO 
DZ190 BSI 
SRA 
sto 
MDX 


* * 


* 
8SS 


t 


F 


$OBSY,-1 
DZ 235 


DZ912 
DZ915 

2 $PST2-X2 
16 
DZ350+1 
02030 


CONSTANTS AND WORK AREAS 


0 


SKIP 


POSTOPERATIVE TRAP 


1+SCTR ADDR 


IF 16 RETRIES DONE 
BRANCH IF LESS THAN 16 


TO EXTENSICN 


BR TO POSTOPERATIVE ER TRAP 
CLEAR 
*ARM POSITION 

RETRY OPERATION 


* EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES 


02900 DC 
DZ901 OC 
027902 DC 


02904 OC 
NZ905 OC 
02906 DC 
DZ907 OC 
07908 OC 
DZ909 OC 
DZ910 OC 
02911 OC 
027912 OC 
02913 OC 
02914 OC 
02915 OC 
02916 DBC 


02920 0C 
07925 OC 
02930 DC 
02935 OC 
02940 0C 
N2945 NC 
02950 CC 
02955 OC 
DZ940 DC 
02965 0C 
02970 NC 
D72975 OC 
07989 OC 
DZ985 DC 
N2990 OC 
DZ995 DC 
* 


* RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL 


* 
BSS 

X2 EQU 

* 

* 

* 

NZ210 SRA 
$To 
MN)X 
NOP 
MDX 

* 

* PREPARE 

* 


NZ215 LO 
MDX 

* 

* PREPARE 

* 

02220 LO 
BSI 
MDX 

* 

* 

* 

DZ230 MOX 

07235. LDX 
LOD 
STN 
STO 


TO 


1 CONSTANT ,READ-AFTER-SEEK WD CNT 
.¢) CURRENT ARM POSITION 


*-* LAST TWO WORDS OF SECTOR 
#-* *PREVIOUSLY READ 
*-* [OCC FOR OPERATION CURRENTLY 


ee *BEING 


PERFORMED 


#-*% SAVE AREA FOR I0CC FOR 
#-* =*USER-REQUESTED OPERATION 
DZ900 I10CC FOR READ 
*-* =6*AFTER SEEK 


*-* 2ND WORD OF SEEK IOCC 


*-* = =6SENSE TOCC 
*-* INTERMEDIATE WORD COUNT 
*-* ADDR OF NEXT SEQUENTIAL SECTOR 


45002 WRITE SELECT/POWER UNSAFE INOR 
45004 REAO/WRITE/SEEK ERROR INDICATOR 


-320 TO BE USED TO STMULTANEOUSLY 


1 *OECR WD CNT, 


INCR SCTR AQDR 


40080 REAC CHECK BIT FOR I0CC 


70600 2ND WD OF READ IOCC W/O AREA CO 
SECTORS PER CYLINDER 
45000 NOT READY DISPLAY 
JOFFS ®AND® OUT DR CODE, 
#-*& FUNC INDICATOR (O#READ,L#WRITE) 


8 NG. 


CcaDdE 
SCTR ADOR 


70701 SENSE ITOCC W/O AREA CODE 


/0007 *AND® 


OUT ALt BUT SCTR NO. 


SNCYL-$CYLN BASE DEFECTIVE CYL ADDR 


SACDE BASE AREA CODE ADDR 


SCYLN-SACDE BASE ARM POSITION ADDR 
*-* 2ND WORD OF READ CHECK IO0CC 


0400 ?ND WD OF SEEK IOCC W/O AREA CD 
WORDS PER SECTOR 
w—% CURRENT SECTOR NOe 


321 NO. 


{W/ ADOR) 


-1 MASK FOR COMPLEMENTING 


? THIS AREA MUST BE AT $CIBA4#319 


02000 


16 
$DASY 
$INCT,-1 


02109 


TRAP OUT GN *POWER UNSAFE* 


N2914 
02190 


TO EXIT 


BR TO TPAP GUT 


CLEAR BUSY INDICATOR 
DECREMENT TOCS COUNTER 


CONDITION 


TO TRAP OUT ON "NOT READY® CONDITION 


L 


L 
L 


02935 
$PRET 
DZ 340 


$10CT,l 
1 *-* 
190 
DZ902 
DZ912 


FETCH ERROR CODE 
BR TO PREGPERATIVE ERR TRAP 
RETRY THE OPERATION 


STATEMENTS MOVED 


2-1 


INCREMENT TOCS COUNTER 
ADOR 1/0 AREA TO XR1 


SAVE WORD COUNT, SCTR ADDR 


I£/SEQNO 


PMNO6480 
PMN06490 
PMNO6500 
PMNO6510 
PMNO6520 
P¥NO65 30 
PMNO6540 
PMNO6550 
PMNO6560 
PMN06570 
PMNO6580 
PMNO6590 
PMNO6600 
PMNO6610 
PMNO6620 
PMN066 30 
PMN06640 
PMNO6650 
PMNO6660 
PMNO6670 
PMNO6680 
PMNO6690 
PMNO6700 
PMNO6710 
PMNO6720 
PMNO6730 
PMNO6740 
PMNO6750 
PMN06760 
PMNO6770 
PMNO6780 
PMNO06790 
PMNO6800 
PMNO6SIO 
PMNO6820 
PMNO6830 
PMN06840 
PMNO6850 
PMNO06860 
PMNO68 70 
PMNO6880 
PMN06890 
PMNO6900 
PMNO6910 
PMN06920 
PMN06930 
PMNO06940 
PMNO6950 
PMNO6960 
PMNO69T7O 
PMNO6980 
PMNO6990 
PMNO 7000 
PMNO7010 
PMNO7020 
PMNO 7030 
PMNO 7040 
PMNO7050 
PMNO7060 
PMNOTO70 
PMNO7080 
PMNO7090 
PMNO7100 
PMNO7110 
PMNO7120 
PMNO7130 


PMNO7140 
PMNO7150 
PMNO7160 
PMNO7170 
PMNO7180 
PMNO7T190 
PMNO7200 
PMNO7210 
PMNO7220 
PMNO7230 
PMNO7 240 
PMNO7250 
PMNO 7260 
PMNO7270 
PMNO7280 
PMNO7290 
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ADDR 


0159 
OL5A 
0158 
015C¢ 
O15Nn 
NL5F 
O1LSF 
0160 
0161 
0167 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
O16R 
016C 
016f 
O1L6F 
O16F 
or7t 
0172 
0173 


0174 
0176 
O1L7T 
0178 
0179 
Ov7B 
O17¢ 
0179 
O17E 
OL7F 
0180 
0181 
018? 
0183 
0184 
o1ss 
0186 
0187 
0188 
9189 
O18A 
OlsA 
918C 
0180 
OLBE 


O18F 
0190 
019? 
0193 


0194 
0195 
0196 
0197 
0198 
0199 
OLOA 
0198 
O19C 
019D 
OL9E 
O19F 
O1A0 
OLAl 
O1A2 
01A3 
OLAS 
O1A5 


@158 


REL OBJECT 


eSe2,sTD9g000000000000 0090 9009003909 


3° 


fo) 


Se o0000 090 00900900 900 000 90090090 


eoeoeco0o°c0o9eo0Igeag0 [00009 


1810 
1084 
NOOE 
80£0 
DOTC 
800F 
N031 
8008 
8008 
8007 
DNN6 
62F0 
6902 
C191 
£0N0 
0101 
94000000 
4828 
7007 
C101 
80C7 
T401016A 
7291 
TOFS 
N101 


660000F 2 
C230 
E249 
0250 
C4N00000 
EA4F 
D23A 
FA43 
D239 
EASO 
9247 
237 
EA4? 
8247 
D240 
EA48 
9238 
CA3C 
OA3A 
O2Eb 
4828 
70cO 
1002 
48728 
TOBF 


C1o1l 
940000900 
4818 
7018 


1893 
18N9F 
1002 
EAA 
18D0 
4810 
7002 
F251 
8230 
CA34 
C7EB 
1000 
4810 
7003 
c1ol 
1803 
0234 
4213 


STeNO. 


0735 
0736 
0737 
0738 
0739 
0740 
0741 
0742 
0743 
0744 
O745 
0746 
0747 
0748 
0749 
9750 
0751 
0752 
0753 
0754 
0755 
0756 
O757 
0758 
0759 
0760 
0761 
0762 
0763 
0764 
9765 
0766 
0767 
0768 
0769 
0770 
C771 
o7T2 
o773 
O774 
0775 
0776 
O777 
O778 
0779 
0780 
c7si 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
9804 
0805 
0806 
0807 
C808 
0809 
0810 
Osi 
0812 
0813 


NZ240 SRA 
SLT 
sto 
A 
sto 
A 
sto 
A 
A 
A 
sto 
LOX 
stx 
Lo 
AND 

0Z250 STO 

07280 $ 
BSC 
MOX 
tO 
A 
M0X 
MDX 
MDX 
sto 

* 


LABEL OPCD FT 


Se N) 


L 
2 


1 


OPERANNS 


16 

4 

NZ 28041 
02965 
DZ330¢1 
02970 
D2350+1 
DZ960 
0228041 
0278041 
0228041 
-3 
DZ906 

1 

NZ940 

1 

*—* 

zt 
0Z300 

1 

02930 
NZ280+1,1 


1 
D2250 
1 


DRIVE CODE IN BITS 12-15 


COMPUTE AND STORE THE 
*ADDOR OF THE AREA CODE 
COMPUTE AND STORE THE 
*ADDR OF THE ARM POSITION 
ADD 1N BASE DT ADOR 

ADD IN THE DRIVE 

*CODE TWICE MORE 


INITIALIZE COUNTER FOR LOOP 


FETCH DESTRED SECTOR ADOR 
*AND* OUT SECTOR NO. 

*AND DRIVE CODE 

SUB DEFECTIVE CYLINDER ADDR 
SKIP ITF BAD CYLENDER 

BR TO CONTINUE PROCESSING 


INCREMENT SCTR AODR BY 8 
POINT TO NEXT DEFECTIVE CYL 
SKIP AFTER 3RD PASS 

COMPARE W/ NEXT DEF CYt ADR 
SCTR ADOR WITH 3 DEF CYL2-4 


* CONSTRUCT THE 2ND WORD OF ALL IOCC*S 


* 
023090 LDX 
to 
AND 
Sto 
DZ330 LO 
OR 
STO 
OR 
STO 
OR 
Ss 
STO 
OR 
A 
sta 
OR 
sto 
Loo 
NZ340 xIc 
sto 
BSC 
MOX 
SLA 
BSC 
MDX 


LN 
02350 § 

BSC 

MDX 


* SEEK 


SRT 
SRA 
SLA 
OR 
RTE 
BSC 
MOX 
EGR 
A 
0Z380 STD 
LO 
SLA 
BSC 
MOX 
02385 LO 
SRA 
STO 
92390 BSI 


r re 
NNNN 


NNN NNN NNN NNN NO 


NNN 


0z000 ADDR OF DZ000 TO XR2 
02913-X2 FETCH SECTOR ADDRESS 
DZ955—X2  *AND® OUT ALL BUT SECTOR NO 
DZ990-K2 SAVE SECTOR NO} 
*-* FETCH AREA CODE 
0Z980-X2  *OR®* IN SEEK FUNCTEON CODE 
DZ910-X2 SEEK TOCC MINUS DIRECTION 
0Z925~X2 *OR* IN READ FUNCTION CODE 
DZ909-X2 YFOCC FOR READ-AFTER-SEEK 
DZ990-X2 “OR* IN SECTOR NO. 
DZ945-X2 COMPLETE READ/WRETE CODE 
DZ907-X2 2ND WD OF READ/WRITE LOCC 
0Z920-X2 « *OR* IN READ CHECK BIT 
DZ945-X2 
DZ975-X2  2ND WD OF READ CHECK IOCC 
0Z950-x%2 *OR* IN SENSE IOCC BITS 
0Z911-X2 COMPLETED SENSE IOCC 
0Z9122-X2 14+SCTR ADDR TO EXTENSION 
DZ910-xX2 SENSE FOR DISK READY 
$ODSW-X2 SAVE THE DSW 
z+ SKIP UNLESS POWER UNSAFE OR 
NZ215 WRITE SELECT, BR OTHERWISE 
2 BR TO PREOPERATIVE ERR TRAP 
Zt *IF DISK NOT READY, SKIP 
DZ220 *OTHERWISE 

STATEMENTS REMOVED 2-1 
} FETCH DESIRED CYLINDER ADDR 
+~* SUBTRACT ARM POSITION 
- SKIP IF SEEK NECESSARY 
02400 BRANCH TO PERFORM OPERATION 
19 PUT NOw CYLINDERS IN EXT 
15 + OR — SIGN TO BIT 15 
2 SHTFT SIGN TO BIT &3 
DZ2910-X2 "OR™ IN REMAINDER OF TOCC 
16 
- SKIP IF SEEK TOWARD HOME 
02380 BRANCH IF SEEK TOWARD CENTR 
DZ995-X2 COMPLEMENT NO. CYLS TO BE 
DZ900~X2 *SOUGHT TO GET POSITIVE NO. 
07904~X2 
$ODSW-X2 FETCH THE DSW 2-1 
13 2-1 
- 2-1 
02390 2-1 
1 FETCH SECTOR ADDR 2-1 
3 CONVERT TO CYLINDER ADODR2-1 
DZ904-X2 *AND STORE IN TOCC 2-1 
0Z070-1-X2 START SEEK 2-1 


'C/SEQNOD 


PMNO7300 
PMNOT310 
PMNO7320 
PMNO7330 
PMNO7340 
PMNO7350 
PMNO7360 
PMNO7370 
PMNOT 380 
PMNO7390 
PMNO7400 
PMNG7410 
PMNO7420 
PMNOT430 
PMNOT440 
PMNO7450 
PMNO7460 
PMNO7470 
PMNO7480 
PMNO7490 
PMNO7500 
PMNO7510 
PMNO7520 
PMNO7530 
PMNOT535 
PMNO7540 
PMNO7550 
PMNO7560 
PMNO7570 
PMNO7580 
PMNO7590 
PMNO7600 
PMNO7610 
PMNO7620 
PMNO7630 
PMNO7640 
PMNO7650 
PMNO7660 
PMNOT670 
PMNO7680 
PMNO7690 
PMNO7700 
PMNO7710 
PMNO7720 
PMNO7730 
PMNOT740 
PMNO7750 
PMNO7760 
PMNO7770 
PMNO7780 
PMNO7790 
PMNO7800 
PMNO7810 
PMNO7820 
PMNO7830 
PMNO7840 
PMNO7850 
PMNO7860 
PMNO7870 
PMNO7880 
PMNO7890 
PMNO7900 
PMNO7910 
PMNO7920 
PMNO7930 
PMNO7940 
PMNO7950 
PMNO7960 
PMNO7970 
PMNOT980 
PMNO7990 
PMNO8000 
PMNO8010 
PMNO8020 
PMNO8030 
PMNO8040 
PMNO8050 
PMNO8060 
PMNO8070 


ADOR 


O01 A6 
OLAT 
QUASB 


O1A9 
O1AA 
OLAC 
O1AN 


OLAF 
0180 
O1B81L 
018? 
O13 
0184 
ORS 
O1A6 
OVB7 
0188 
0189 
OLBA 
O1BB 
ORC 
OLAD 


NRE 
OLBF 
o1co 
o1Ccl 
oc? 
o01c3 
N1C4 
91C5 
N1C6 
91C7 
o1ca 
OCA 
01CB 
91cc 
NicD 
NICE 


O1CF 


O1DA 
o1oR 
010c 
ond 
ONE 
OVEO 


REL 


0 


00 


00 


seoo9,90o9 900009900590 


ersr0000 Coocoo sae 2s05 
3° 


oosa9o 


So 


OBJECT 


CA38 
DA34 
4713 


C231 
04800191 
9101 
4€ 200116 


CA3C 
4808 
7094 
BA40 
NA3ZC 
4830 
1810 
R24F 
9100 
CA36 
0A34 
c1o0.l 
EA5O 
0101 
4213 


C?4D 
N235 
C247 
4820 
4213 
CA3? 
0900 
C?3C 
4808 
7069 
75000140 
c900 
NA32 
CA3C 
ng9nn 
TOBA 


9008 


0OA0 
0000 
0000 
90Nn0 
9002 


ST.NO. 


0814 
0815 
0816 
O817 
0818 
0819 
9820 
0821 
C822 
0823 
0874 
0825 
0826 
08277 
C828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
1837 
0838 
9839 
0840 
084) 
0842 
0843 
CB44 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
C852 
9853 
C854 
0855 
C856 
0857 
0858 
0859 
0860 
0861 
086? 
9863 
0864 
C865 
0866 
0867 
0868 
0869 
0870 
871 
0872 
0873 
0874 
0875 


LABEL OPCD FT OPERANDS 


* 


* SEEK COMPLETE INTERRUPT PROCESSING 


* 
Loo 
STD 


BSI 
* 


2 


DZ908-X2 


SET UP {OCC FOR 


2 0Z904-X2 - *READ AFTER SEEK 
2 DZO0TO-1-X2 START READ-AFTER-—SEEK 


* READ-AFTER-SEEK COMPLETE INTERRUPT PROCESSING 


* 
LO 
sto 
Ss 
BSC 

* 

* 


2 
I 
1 


L 


* READ/WRITE 


* 
02400 LOC 


02410 MDX 


BSI 
* 


? 


NON 


Nm Nm 0 ND BW ND 


DZ901-x2 
0Z350+1 
1 
DZ185,2 


DZ917-X2 
+ 

02210 
029 16-x2 
DZ912~-X2 
T=- 

16 

02 985-X2 
Q 
0Z906-X? 
0Z904-X? 
1 
DZ990-X2 
! 


FETCH ADR OF SCTR JUST READ 
UPOATE ARM POSITION 

SUB DESIRED SCTR ADDR 

BR IF SEEK UNSUCCESSFUL 


FETCH INTERMEDIATE WO CNT 
SKIP, WO CNT NOT EXHAUSTED 
BRANCH IF REAO/WRITE DONE 
DECREMENT WORD COUNT AND 
*INCREMENT SECTOR ADDRESS 
SKIP TF THIS IS LAST SECTOR 
CLEAR ACCUMULATOR 

ADD BACK 321 TO WD CNT 
STORE RESULT IN I/O AREA 
RESTORE IOCC FOR ORIGINALLY 
*REQUESTED OPERATION 

ADD SECTOR NOw TO SECTOR 
*ACDRESS 


DZ079-1-X2 START READ/WRITE OPERATION 


*® READ/WRITE COMPLETE INTERRUPT PROCESSING 


* 
Lo 
sto 
LD 
BSC 
BSI 
too 
STO 
LB 
BSC 
MDX 
MDX 
LOD 
STO 
ton 
STD 
MDX 


BSS 


SCION OC 


BSS 
SZEND EQU 


NNN 


Ne NN 


i 


OND ND tet pee 


DZ975—Xx2 
DZ905—X2 
DZ945-X2 
Zz 


SET UP FOR READ CHECK 


FETCH FUNCTION INDICATOR 
SKIP FF READ REQUESTED 


0Z070-1-X2 START READ CHECK OPERATION 


DZ902-X2 
9 
DZ912—X2 
+ 

07410 
320 

0 
02902-x2 
02912-X?2 


0 
02240 
11 


*cItl 
*—* 
*-+* 
&-* 


RESTORE LAST 2 WDS OF SEC- 
*TOR PREVIGUSLY READ 

FETCH INTERMEDIATE WD CNT 
SKIP TF MORE READING/WRT ING 
BRANCH IF FINISHED 


POINT XR1 TO NEW 1/0 AREA 
SAVE LAST 2 WOS OF SECTOR 
*JUST READ/WRITTEN 

WD CNT, SCTR ADDR NEXT OP 
STORE 8OTH IN NEW 1/0 AREA 
BACK TO SET UP NEXT OPERATN 


PATCH AREA 2-4 


ID NO. OF CORE IMAGE LDR,PL 
CORE ADDR/CID NOW 

WORD CCUNT 

SCTR ADDR 

WD CNTs SCTR ADDR CORE LOS 
1 + END OF DISKZ 


1D/SEQNO 
PMNO8080 
PMNO8090 
PMNOB100 
PMNO6110 
PMNO8120 
PMNO8130 
PMNO8140 
PMNO81L50 
PMNOS8L60 
PMNO8170 
P¥NO8180 
PMN08190 
PMNO8200 
PMNO8210 
PMNO8220 
PMN18230 
PMNOB240 
PMNOA250 
PMNO8260 
PMNO8270 
PMNO8280 
PMNO8290 
PMNO8300 
PMNO8310 
PMNO8320 
PMNO8330 
PMNO8340 
PMNO8350 
PMNO8360 
PMNO8370 
PMNO8 380 
PMN08390 
PMNO8400 
PMNO8410 
PMNO8420 
PMN08430 
PMNO8440 
PMNO8450 
PMNO 8460 
PMNO8470 
PMNO8480 
PMN08490 
PMNO8500 
PMNO8510 
PMNO3520 


PMNO8530 
PMNO8540 
PMNO8550 
PMNO8560 
PMNO8570 
PMNO85 80 
PMNO8590 
PMNO8600 
PMNO8610 
PMNO8620 
PMNO8630 
PMNO8640 
PMNO8650 
PMNO8660 
PMNO8670 
PMNO8680 
PMN08690 
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EQUIVALFNCES 


ADDR REL OBJECT 


0004 
0006 
0007 
0008 
0009 
OO0A 
000B 
000C 
0000 
OOOF 
O0OF 
0010 
oot 
9012 
0014 
9015 
9916 
oOnol7T 
0018 
909 
OOVA 
0018 
Oo1c 
001n 
OOLE 
OOF 
0020 
0071 
0023 
0078 
902D 
0032 
0037 
003C 
04% 
0046 
004B 
0050 
9055 
OOSA 


O06E 
0073 
QN7T4 
0078 
908Cc 
098D 
NO8E 
OO8F 
9090 
no091 
NN92 
0093 
0094 
9095 
9096 
9N97 
0098 
NOAN 
OOAL 


0014 
0016 
0017 
on1a 
0019 
OOLA 
OOSA 
00B9 
OND4 
OOFF 
OOFO 
OOFL 
NOES 


0160 


eoco0o r70 230900909000 90900 090 00 990900 000 900090099009 


Sso900 59S9009D 0909 353990990909 


pooo.209 900000 


ST.NO. 


0877 
0878 
0879 
0880 
OR81 
0882 
0883 
08 84 
0885 
08 86 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 
0906 
C907 
C908 
c909 
0910 
0911 
0912 
C913 
0914 
C915 
0916 
0917 
0918 
0919 
C970 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
C936 
0937 
0938 
9939 
0940 
C941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 


LABEL OPCD FT OPERANDS 


* 


* EQUIVALENCES FOR DCOM PARAMETERS 


* 
#NAME 
#D8CT 
#FCNT 
#SYSC 
#JBSW 
#CBSW 
#LCNT 
#MPSW 
MDF 
#MOF2 
#NCNT 
#ENTY 
#RP6T 
#TODR 
#FHOL 
BFSZE 
#UHOL 
#HUSZE 
#OCSW 
#PTOD 
#PPTR 
#CIAD 
#ACIN 
#GRPH 
#GCNT 
#LOSW 
#X3SW 
#ECNT 
#ANDU 
#8BNDU 
#FPAD 
#PCID 
#CIDN 
aCIBA 
BSCTRA 
#EMAT 
#FLET 
#ULET 
#WSCT 
#CSHN 
* 


EQU 
EQU 
EQU 
EQu 
ECU 
E£QU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
£QU 
EQU 


NAME OF PROGRAM/CORE LOAD 

BLOCK CT OF PROGRAM/CORE LOAD 
FILES SWITCH 

SYSTEM/NON-SYSTEM CARTRIDGE INOR 
JOBT SWITCH 

CLB-RETURN SWITCH 

NO. OF LOCALS 

CORE MAP SWITCH 

NO. OUP CTRL RECORDS (MODIF) 
ACDR OF MODIF BUFFER 

NO. OF NOCALS 

RLTV ENTRY ADDR OF PROGRAM 
1442-5 SWITCH 

OBJECT WORK STORAGE ORIVE CODE 
AGDR LARGEST HOLE IN FIXED AREA 
BLK CNT LARGEST HOLE EN FXA 
ADDR LARGEST HOLE IN USER AREA 
BLK CNT LARGEST HOLE IN UA. 

NUP CALL SWITCH 

PRINCIPAL 1/0 DEVICE INDICATOR 
PRINCEPAL PRINT DEVICE ENDICATOR 
RLTV ADDR IN *STRT OF CIL ADDR 
AVAILABLE CARTRIDGE INDICATOR 


2250 INDICATOR 262 
NOe G27?50 RECORDS 262 
LOCAL-CALLS-LOCAL SWITCH 2-2 
SPECIAL ILS SWITCH 2-2 
NO. OF *EQUAT RCDS 2-4 


1+#BLK ADDR END OF UA (ADJUSTED) 
14¢BLK ADDR END OF UA (BASE) 
FILE PROTECT ADOR 

CARTRIDGE ID, PHYSICAL DRIVE 
CARTRIDGE 1D, LOGICAL DRIVE 
SCTR ADDR OF CIB 

SCTR ADDR GF SCRA 

FORMAT OF PROG IN WORKING STG 
SCTR ADOR 1ST SCTR OF FLET 
SCTR ADDR 1ST SCTR OF LET 

BLK CNT OF PROG IN WORKING STG 
NOs SCTRS IN CUSHION AREA 


* EQUIVALENCES FOR PHASE ID NUMBERS 


* 

"MCRA 
*SUP6 
*SUPT 
*CLBO 
*1403 
"1132 
*CPTR 
*2501 
"1442 
"1134 
"K BCP 
*COCV 
"PTCV 
"KBCV 
*OZID 
"D1LTO 
"DNID 
*CIL1 
"CIL2 
* 


EQU 
EQU 
EQU 
EQU 
€QU 
EQU 
EQU 
EQU 
ECU 
EQU 
EQU 
EQU 
ECU 
EQU 
EQU 
EQU 
EQU 
EQU 
E€QU 


* EQUIVALENCES FOR RESIDENT MONITOR 


* 
$LKNM 
$RMSW 
$CXR1L 
$CLSW 
SOMPF 
$ACEX 
$CILA 
$IBT2 
$1BT4 
$SNLT 
$PAUS 
$RWCZ 
$XR3XK 
* 


EQU 
EQU 
E£QU 
EQU 
EQU 
€QU 
ECU 
EQU 
EQU 
ECU 
EQU 
EQU 
EQU 


110 PHASE ID FOR MCRA 

115 PHASE ID FGR DUMP PROG 2-4 
116 PHASE ID FOR AUX SUPY 2-4 
120 PHASE ID FOR CLBy, PHASE O/1 
140 PHASE [1D FOR SYS 1403 SUBR 
141 PHASE TD FOR SYS 1132 SUBR 
142 PHASE 1D FOR SYS CP SUBR 
143 PHASE 1D FOR SYS 2501 SUBR 
144 PHASE 1D FOR SYS 1442 SUBR 
145 PHASE ID FOR SYS 1134 SUBR 
146 PHASE ID FOR SYS KB/CP SUBR 
147 PHASE 19 FOR SYS CD CONV 
148 PHASE IN FOR SYS 1134 CONV 
149 PHASE ID FOR SYS KB CONV 
150 PHASE 1B FOR DISKZ 

151 PHASE ID FOR DISKI 

152 PHASE [0 FOR DISKN 

160 PHASE 1D FOR CI LOADER,PH 1 
161 PHASE [0 FOR CI LOADER,PH 2 
SHASH SAVE AREA FOR NAME OF LINK 
SHASH#2 EXIV-LINK-DUMP SW({-1,0,¢1) 
SHASH+3 SAVE AREA FOR XRI 

$HASH+4 SW FOR CORE IMAGE LDR,PH 2 
SHASH#5 DUMP FORMAT CODE 

$SHASH+6 ACC AND EXT WHEN ENTER DUMP 
$S150+1 ADDR OF END OF DK I/0 - 3 
$1205+1 ADR OF SERVICE PART OF DKIO 
$140541 ADDR OF THE IBT 

$OBSY+1 SENSE LIGHT INDICATOR 
DZ000-2 PAUSE,INTERRUPT INOICATOR 
0Z000-1 READ/WRITE SWITCH (CARDZ) 
$1496 XR3 SETTING DURING XEQ 2-2 


ID/SEQNO 


PMNO8710 
PMNO8720 
PMNO87 30 
PMNO8740 
PMNO8750 
PMNO8760 
PMNO8770 
PMNO8780 
PMNO8790 
PMNO8800 
PMNO8810 
PMNO08820 
PMNO8830 
PMNO88B40 
PMNO8850 
PMNO8860 
PMNO8&870 
PMNC8880 
PMNO8890 
PMNO8900 
PMNON8910 
PMNO8920 
PMNO8930 
PMN08940 
PMNO8950 
PMNO8960 
PMNO8970 
PMNO8980 
PMNO8990 
PMNO9000 
PMNOS005 
PMNO9010 
PMNO9020 
PMNO9030 
PMNO9040 
PMNO9050 
PMNO9060 
PMNO9070 
PMNO9080 
PMNO9090 
PMNO9100 
PMNO9110 
PMNO9120 
PMNO9130 
PMNO9140 
PMNO9150 
PMNO9160 
PMNO9170 
PMNO9180 
PMNO9190 
PMNOS 200 
PMNO9210 
PMNO9220 
PMNO9230 
PMNO9240 
PMNO9250 
PMNO9260 
PMNO9270 
PMNO9 280 
PMNO9 290 
PMNO9300 
PMNO9310 
PMNO9320 
PMNO9330 
PMNO9340 
PMNO9350 
PMNO9 360 
PMNO9370 
PMNO9380 
PMNO09390 
PMNO09400 
PMNO9410 
PMNO9420 
PMNO09430 
PMNO09440 
PMNO09450 
PMNO9460 
PMNO9470 
PMNO9480 
PMNO9490 
PMNO9500 
PMNO9510 


ADNR 


0000 
0001 
9n02 
0093 
0006 
qnnT 
0000 


0000 
ooo01 
90n2 
0003 
0004 
9005 
0006 
9007 
0008 
0009 
OONA 
oooR 
0011 
OOLA 
oo1c 
0010 


0005 
9003 
900n 
0001 
0003 
0004 
0000 
0002 


0033 
0005s 
9380 
04co0 
0600 
Noll 
o0F9 
OOFT 
0010 
0003 
1000 
ooTF 


0004 
0005 
0001 
9008 


REL OBJECT 


gao0oq0og0l090 ag 09 00200 oao009g05090 


oo Ro Re Re te Re Ro) 


sooog0og0o0006 


oo0°0 


ST.NO. 


0959 
0960 
0961 
0962 
9963 
0964 
0965 
0966 
0967 
C968 
0969 
C970 
o971 
0972 
0973 
0974 
0975 


LABEL OPCD FT OPERANDS 


® EQUIVALENCES FOR ABSOLUTE SECTOR ADDRESSES 


* 
*IDAD 
*OcON 
*RIAD 
*SLET 
*RTBL 
"HONG 
*STRT 
* 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


ADDR OF SCTR WITH 10,DEF CYL ADR 
ADDR OF SCTR CONTAINING DCOM 

ACORGOF SCTR CONTAINING RES IMGE 
ADDR OF SCTR CONTAINING SLET 

ACDR OF SCTR CONTAINING RELO TBL 
ADDR OF SCTR CONTAINING PAGE HDR 
ADOR OF SCTR W/ COLD START PROG 


ON AWN OS 


* EQUIVALENCES fOR THE CORE IMAGE HEADER 


* 
"XEQA 
*CMON 
‘*DPREQ 
*FILE 
*HWCT 
"LSCT 
*"LDAD 
*XCTL 
"TVWC 
"WCNT 
*XR3X 
*rTvx 
*TLS4 
*OvVSW 
"CORE 
*HEND 
* 


€QU 
EQU 
EQU 
EQU 
EQU 
€QU 
EQU 
EQU 
EQU 
EQU 
€QU 
EQU 
EQU 
EQU 
€QU 
EQU 


RLTV ADDR GF CORE LOAD EXEC ADDR 
RLTV ADDR OF WD CNT OF COMMON 
RLTV ADDR OF DISK 170 INDICATOR 
RLTV ADOR OF NOs FILES DEFINED 
RLTV ADOR OF WO CNT OF CI HEADER 
SCTR CNT OF FILES IN WK STORAGE 
RLTV ADOR OF LOAD ADDR CORE LOAD 
RLTV ADDR DESKL/DISKN EXIT CTRL 
RLTV ADOR OF WD CNT OF TV 

RLTV ADOR OF WO CNT OF CORE LOAD 
10 RLTV ADDR OF EXEC SETTING OF XR3 
11 RLTV ADDR OF 1ST WD OF ITV 

17 RLTV ADDR OF LST WD OF IBT4 

26 RLTV ADDR OF LOCAL/SOCAL SWITCH 
28 CORE SIZE OF BUILDING SYSTEM 

29 RLTV ADDR OF LAST WD OF CI HDR 


ODNOU FWNe Oo 


* EQUIVALENCES FOR LET/FLET 


* 

"LFHD 
*LFEN 
*SCTN 
*UAFX 
SWDOSA 
"NEXT 
*LENM 
*BLCT 
* 


EQU 
€QU 
EQU 
EQU 
£QU 
EQU 
EQU 
EQU 


WORD COUNT OF LET/FLET HEADER 

NO GF WOS PER LET/FLET ENTRY 
RLTY ADOR OF LET/FLET SCTR NO. 
RLTV ADOR OF SCTR ADDR OF UA/FXA 
RLTV ADDR OF WOS AVAIL IN SCTR 
RLTV ADDR OF ADDR NEXT SCTR 

RLTV ADOR OF LET/FLET ENTRY NAME 
RLTV ADOR OF LET/FLET ENTRY DBCT 


NOf WKH OW WM 


* MISCELLANEOUS EQUIVALENCES 


* 
*ISstv 
*MXDR 
*COMZ 
*cOM1 
*cOM2 
*TCNT 
*OKEP 
"*DKIP 
*Sscis 
SHCTS 
*mMCOR 
Y 

* 

*CIDN 
*cOoPY 
*DCTB 
*otTyp 


EQU 
EQU 
eQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
€QU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


51 {SS NO. ADJUSTMENT FACTOR 2-1 
5 MAX NO. DRIVES SUPPORTED 

896 LOW COMMON LIMIT FOR DISKZ 

1216 LOW COMMON LIMIT FOR DISK1 

1536 LOW COMMON LIMIT OF DISKN 

17 NO. TRIES BEFORE DISK ERROR 
£2000+7 LIBF ENTRY TO DISKI/N 

DZ000+5 DISK 1/0 INTERRUPT ENTRY PT 


16 cis SECTOR COUNT 2-2 
3 HIGH COMMON SECTOR COUNT 2-2 
4096 S#ZE OF MINIMUM CORE 2-2 
127 

4 RLTV ADDR CARTRIDGE ID 2-2 
5 RLTV ADDR COPY INDICATOR 2-2 
1 RLTV ADDR DEFECTIV CYL TBL 2-2 
8 RLTV ADDR OFSK TYPE ENDR 2-2 


1D/SEQNO 


PMNO9520 
PMNO9530 
P¥NO9540 
PMNO9550 
PMNO9560 
PMNO9570 
PMNO9580 
PMNO9590 
PMNO9600 
PMNO9610 
PMNO9620 
PMNO9630 
PMN0N9640 
PMNO9650 
PMNO09660 
PMNO9670 
PMNO9680 


PMNO9690 
PMNO9700 
PMNO9710 
PMNO9720 
PMNO9730 
PMNO9740 
PMNO9750 
PMNO9760 
PMNO9TTO 
PMNO9780 
PMNO9790 
PMNO9800 
PMNO9810 
PMNO9820 
PMNO9830 
PMNO9840 
PMNO9850 
PMNO9860 
PMNO9870 
PMNO9880 
PMNO9890 
PMNO9900 
PMNO9910 
PMNO9920 
PMNO9930 
PMNO9940 
PMNO9950 
PMNO9960 
PMNOS9TO 
PMNO9980 
PMNO9990 
PMN10000 
PMN10010 
PMN10020 
PMN10030 
PMN10040 
PMN10050 
PMN10060 
PMN10070 
PMN1LO080 
PMN10090 
PMN10100 
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COLN START PROGRAM 


ADNR REL 


O1LEO 
Orel 
NLE2 
O1LES 
O1E5 
OLE6 
O1LET 
O1ES8 
O1E9 
OLEA 
O1ER 
OLEC 
O1ED 
OEE 
OLEF 


O1FO 
OVFE 
O1F2 
OLF3 
OLFS 
OFS 
O1F6 
O1FT 


@162 


°o 


esoescoo0o0 Oso 90590 0005 


e0000 C000 


OBJECT 


617F 
C87E 
Nco00004 
0125 
C184 
0120 
no029 
C156 
DOF 1 
COFRS 
1890 
N16F 
0118 
4173 
3000 


1810 
0183 
C818 
n985 
coic 
N120 
C016 
9181 


ST.NO. 


1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1932 
1033 
1034 
1035 
1036 
1037 
1038 
1939 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1969 
1070 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1979 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 


LABEL OPCO FY OPERANDS 


SHEAKKKSEBEE SECRETE KEKKREREKES ESE SK EKEKESLAKAEKEEKEKKKES 


* 

*STATUS - VERSION 2, MODIFICATION LEVEL 5. 

*x 

*FUNCTION/OPERATION — 

THIS PROGRAM IS READ INTO CORE FROM SECTOR 0 
OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY 
THE COLD START CARD. DEFECTIVE CYLINDER 
ADORESSES, CARTRIDGE ID AND DISKZ ARE ALSO ON 
SECTOR O AND ARE READ IN AT THE SAME TIME. 


TO READ IN THE RESIDENT IMAGE, SAVE THE 
CARTRIOGE ID AND TRANSFER TO THE AUXILIARY 
SUPERVISOR THROUGH $DUMP IN THE RESIDENT 
MONITOR. 


ENTRY — CRO10-2 


INPUT - 
THE CARTRIOGE ID OF LOGICAL DRIVE ZERO (THE 
SYSTEM CARTRIDGE) IS READ IN FROM SECTOR 0 
WITH THE COLD START PROGRAM. 


OUTPUT — 

* THE RESIDENT IMAGE IS READ INTO CORE FROM 
THE DISK. 

* IN COMMA- 
$ACDE 
SCIBA-1 
SCION 
$CYLN 
SOBSY 
$10CT 


EXTERNAL REFERENCES — 
02900 SUBROUTINE TO PERFORM DISK 1/0. 


EXITS - 
THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR 
AS FOLLOWS— 
BSI sDUMP 
oc -1 


eH HH HEHEHE HHH HHHHEHRHRHRHEHHEHEHHERHEH HH HHH HH 


*TABLES/WORK AREAS — N/A 
* 


*ATTRIBUTES — 

* THIS PROGRAM IS NOY NATURALLY RELOCATABLE. 
* 

*NOTES — 

* DISK ERRORS RESULT IN A WAIT AT $PST2. 


ALL THAT REMAINS FOR THE COLD START PROGRAM IS 


ENTER PROGRAM BY TRANSFER FROM COLD START CARD 


HHH HERE HHH HEHEHE HEHEHE HERE HEHEHE HEEHEHHEHRHE HHH HEHEHE HHH 


KERR SEKRELERREEKALAHEERAKEKKEEKE EKER EKAEEKEESESEE 


* 
* READ THE RESIDENT IMAGE INTO CORE 
* 


LDXx 1¥ 


LON CR920 SET UP WORD COUNT AND SCTR 


CROLO STD EL S$CIBA-1 *ADOR OF RESIDENT IMAGE 


$10 1 $OCYL-Y *INITIALIZE DEF CYL NOw 1 
LO 1 3-Y FETCH LOG DRIVE O AREA CODE 
sto 1 SACDE-Y *AND STORE IT IN COMMA 

sto CR920+1 SAVE THE AREA CODE 

LO 1 0Z2000-2-27-Y FETCH AND SAVE THE 

sto $CIDN *CARTRIDGE 1D 

LO CRO1041 FETCH CORE ADDR OF RESIDENT 
SRT 16 *IMAGE AND PUT IN EXTENSION 
STO 1 $DBSY-Y CLEAR DISK BUSY INDICATOR 
sto 1 $CYLN-Y INITIALIZE ARM POSITION 

BSI 1 07000-Y FETCH RESIDENT IMAGE 

WAIT WAIT OUT THE INTERRUPT 


* 
* INITIALIZE ITEMS IN COMMA 
* 


SRA 16 

$T0 1 $IOCcT-y¥Y CLEAR IOCS COUNTER 

LOO CR910 

STD 1 SCIBA-1-Y *FOR SAVING CORE ON THE CIB 
LO CRI20+1 FETCH AREA CODE 

STO 1 SACDE-Y RESET AREA CODE 

Lo CR905 INITIALIZE WO ZERO TO BR TO 
sto 1 0-Y *DUMP ENTRY POINT PLUS 1 


* 
* TRANSFER TO THE AUXILIARY SUPERVISOR 


10/SEQNO 


PMN10120 
PMN10130 
PMN10140 
PMN10150 
PMN10160 
PMN10170 
PMN10180 
PMN10190 
P4N10200 
PMN10210 
PMN10220 
PMN10230 
PMN10240 
PMN10250 
PMN10260 
PMN1LO270 
PMN10280 
PMN10290 
PMN1LO300 
PMN10310 
PMN10320 
PMN10330 
PMN10340 
PMN10350 
PMN10360 
PMN10370 
PMN10380 
PMN10390 
PMN10400 
PMN10410 
PMN10420 
PMN10430 
PMN10440 
PMN10450 
PMN10460 
PMN10470 
PMN104860 
PMN10490 
PMN10500 
PMN10510 
PMN10520 
PMN10530 
PMN10540 
PMN10550 
PMN10560 
PMN10570 
PMN10580 
PMN10590 
PMN10600 
PMN10610 
PMN10620 
PMNLO0630 
PMN10650 
PMN10660 
PMN10670 
PMN10680 
PMN10690 
PMN10700 
PMN10710 
PMN1LO720 
PMN10730 
PMN10740 
PMN10750 
PMN10760 
PMN1O770 
PMN10780 
PMN10790 
PMN10800 
PMN1O810 
PMN10820 
PMN10830 
PMN10840 
PMN10850 
PMN10860 
PMN10870 
PMN10880 
PMN1L0890 
PMNLO900 
PMN10910 
PMN10920 
PMN10930 
PMN10940 
PMN10950 


coLo 


ADDR 


020E 
020F 
0210 
0211 
0212 


START PROGRAM 


REL OBJECT 


ooo°o 


oool 
0007 
O0E8 
0002 
0212 


ST.NO~ 


1113 
1114 
L115 
1L16 
1117 


LABEL ONPCN FT OPERANDS 


CROLO NC 
ne 

CR920 OC 
NC 
END 


1 WO CNT,SCTR ADOR OF CAUSE 
"HONG FHARMLESS WRITE TO DISK 
SDOBSY-$CH1L2 WN CNT AND SCTR 

"RIAD ®ADDR OF RESIDENT IMAGE 


x 


TO/SEQND 


PMN11060 
PMNL1N70 
PMNL1080 
PMN11090 
PMNILL00 
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ADDR REL OBJECT 


O1FS O 


. OLFI 9D 


O1LFA 


0700 
O20€ 
020F 
9210 
0211 
0212 


oooo9o 


SYMBOL 


CROLO 
CR905 
Cagalo 
CR920 
02000 
02010 
02070 
02030 
02060 
02070 
DZ100 
0Z180 
02185 
02190 
02210 
027215 
02220 
DZ 230 
02935 
02240 
DZ 250 
DZ 780 
DzZ300 
02330 
02340 
02350 
07380 
02385 
02390 
02400 
D7410 
92900 
0Z901 
02902? 
NZ904 
027905 
DZ906 
DZ907 
0Z908 
02909 
07910 
07911 
0Z912 
02913 
DZ914 
02915 
DZ916 
DZ920 
02975 
02930 
02935 
02940 
02945 
02950 
02955 
DZ960 
07965 


41C0 
FFFF 


0013 


TO3F 
9000 
0007 
OOE8 
0002 
0212 


VALUE 


O1E2 
070D 
O20E 
0210 
OOF2 
OOFT 
OCF9 


0108 
O10E 
0116 
9110 
0146 
014C 
O14E 
0152 
0154 
0159 
0168 
9169 
0174 
0179 
0188 
0190 
O19D 
O1A2 
OLAS 
OLAF 
0181 
0122 
0123 
0124 
0126 
0127 
0178 
0129 
OPA 
0128 
012C 
0120 
OL2E 
O1?7F 
0130 
O13 
0132 
0134 
0135 
0136 
9137 
0138 
0139 
O13A 
0138 
013¢ 
9130 


S 


REL 


SGPo0d0000 Ce COD Coo eae 90e0 00 Ss0000n0g 00 00900 0000 00009000090 000 0000 0000 


TeNO. 


1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 


DEFN 


1O77 
1112 
1113 
12115 
0610 
0617 
0619 
0625 
0630 
0634 
0639 
0645 
0651 
0660 
o711 
0719 
0724 
0730 
O71 
0735 
0750 
O751 
0763 
O76? 
0781 
0790 
0805 
0810 
08123 
0831 
0833 
0669 
0670 
O67! 
0673 
0674 
0675 
0676 
O6TT 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 


LABEL OPCD FT 


* TO COMPLETE 


x 


* 


* 
x 
* 


BSI 
oc 


BSS 


1 


OPERANDS 
INITIALIZATION 


SNUMP-Y 


-1 


19 


BR TO AUXILLEARY SUPERVISOR 


#FOR JOB PROCESSING 


PATCH AREA 


CONSTANTS ANO WORK AREAS 


CcR905 MNX 
CR9LO DC 


oc 


CR920 OC 


pie 
END 


x 


$DUMP+1-1 TO BE STORED IN LOCN ZERO 
WC CNT,SCTR ADDR OF 
*HARMLESS WRITE TO OFSK 
$NBSY-$CH12 WD CNT AND SCTR 
*ADOR OF RESIDENT IMAGE 


0 
‘H 


*R 


* 


DNG 


TAD 


CROSS—REFERENCE 


REFERENCES 


1084 
1099 
1095 
1076 
9323 
0628 
0613 
0663 
0650 
0813 
0619 
0618 
0826 
0720 
0833 
0784 
0787 
0629 
06274 
0864 
0758 
OT37 
0752 
9739 
0726 
0662 
0802 


08c9 
9792 
0858 
0677 
08223 
0651 
1635 
0850 
O747 
O774 
9817 
0771 
0647 
o779 
0658 
0764 
0719 
0659 
0834 
0775 
o77C 
0755 
0724 
0749 
0622 
0778 
0765 
0742 
0738 


1081 
0350 
0641 


c819 
0620 
0634 


C654 


0743 


0741 


0804 


0733 
ce0s 


C840 


C769 


C734 


1097 
0627 


0845 
o715 


0744 


0824 


0854 
0812 


0781 


0780 


0646 


0853 


0745 


C861 
0818 


0799 


0831 


C773 O776 C851 


0707 0763 0955 


0756 


0841 


0835 0856 0862 


2-5 


0956 


ID/SEQNO 


PMN1LO0960 
PMN10970 
PMN10980 
PMN10990 
PMN11000 
PMN11010 
PMN11020 
PMN1 1030 
PMN11040 
PMN11050 
PMN11060 
PMN11070 
PMN11080 
PMN21090 
PMNI1100 


1007 1008 


1082 


1088 
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SY MROL 


02970 
0Z975 
02990 
02985 
07990 
DZ995 
$ACNE 
SACEX 
$CCAN 
$CH12 
$SCIBA 
$C ION 
$SCILA 
$CLSW 
$COMN 
SCORE 
$CPTR 
$CTSw 
$CWCT 
$CXR1 
$C YLN 
SDADR 
$DBSY 
$OCDE 
$OCYL 
$ODSW 
SDMPF 
$DREQ 
$DUMP 
$NZ1N 
SEXIT 
$FLSH 
$FPAD 
$GCOM 
$GRIN 
$SHASH 
$IBSY 
$YBt2 
$IBT4S 
$1ocT 
$TREQ 
$1200 
$1205 
$1210 
$1290 
$1400 
$1403 
$1405 
$1410 
$1420 
$1425 
$1490 
$1492 
$1494 
$1496 
SKC SW 
$LAST 
$LEVO 
$LEVI 
$LEV2 
$LEV3 
SLEV4 
$SLEVS 
SLINK 
SLKNM 
$LSAD 
SNNUP 
$NXEQ 
SPAUS 
$PBSY 
$PGCT 
$PHSE 
SPRET 
$PSTL 
SPST2 
$PST3 
$PST4 
$SRMSW 
$RWCZ 
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VALUE 


O1L3E 
O13F 
0140 
0141 
0142 
0143 
Q09F 
OOIA 
0074 
0006 
0005 
010B 
OO5A 
on18 
0007 
OONE 
OOTE 
O00F 
00T2 
OOLT 
OO9A 
0010 
OOEF 
O0TT 
OOA4 
000D 
0019 
0012 
003F 
0076 
0038 
0071 
0095 
0063 
0064 
0014 
0013 
0089 
0004 
0032 
002c 
0083 


0037 
0078 
0028 
008l 
0085 
0089 
008) 
0016 
OOF! 


m 
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DEFN 


0697 
0698 
0699 
0700 
0701 
0792 
0437 
0950 
0364 
0254 
0253 
087 
0951 
0948 
0255 
0267 
0374 
0268 
0362 
0947 
0427 
0269 
0552 
0367 
0448 
0530 
0949 
0271 
0316 
0366 
0302 
0360 
0418 
0354 
0355 
0273 
0272 
0952 
0953 
0293 
0287 
0474 
0480 
0481 
0486 
0506 
0516 
0520 
0521 
0545 
0548 
0531 
0532 
0535 
0542 
0372 
0294 
0259 
0260 
0261 
0262 
0263 
0264 
0306 
0945 
0365 
0295 
0296 
0955 
0297 
0298 
0368 
0282 
0380 
0386 
0392 
0398 
0946 
0956 


REFERENCES 


0740 
0777 
0768 
0838 
0766 
0802 
0696 
0317 


11s 
O311 
1083 
0348 


0319 
0695 


0611 


0695 
0648 
0321 


0320 


0945 


0330 
0514 
0261 
0952 
0475 
0478 
0263 
0513 
0953 
0508 


0547 
0507 
O51 
0517 
0546 


0340 
0346 


0284 
0382 
0388 
0394 
0400 
0339 


C849 


0772 


C697 


1077 


0697 


0626 


1078 
C182 


0548 


0946 


e713 
0485 


0476 
C484 
0525 


0509 


0524 


0957 


0725 
0660 


0843 


1080 


1096 


1087 


0653 
0806 


1105 


0947 


0730 


0477 


0510 


1098 


O712 


W112 


0948 


1094 


0954 1086 


0949 0950 


Lti5 


SYMBOL 


$SCAN 
$SCAT 
SSNLT 
$sToP 
$SYSC 
$son0 
$$100 
$5150 
$8200 
$5250 
$5300 
$5900 
$S$910 
$UFOR 
$uFIO 
$ULET 
$WRDL 
$WSDR 
$XR3X 
$ZEND 
$1132 
$1403 
X2 


#ACIN 
BANDU 
#BNDU 
a#cesw 
SCIAD 
ACIBA 
#CIDN 
@CSHN 
#D8CT 
#0CSW 
#ECNT 
#ENTY 
sFCNT 
#FHOL 
#FLET 
#FMAT 
HFPAD 
RFSTZE 
#GCNT 
#GRPH 
#JBSW 
#LCNT 
#LOSW 
aMDFE 
#MDF? 
#MPSW 
BNAME 
#NCNT 
#PCIN 
#PrIoD 
#PPTR 
RRP6T 
#SCRA 
#SYSC 
#TODR 
#UHOL 


#ULET 
#USZE 
#WSCT 
#X2SW 
"BLCT 
*COCV 
*CIDN 
"CYL 
*CIt2 
*CLRO 
*CMON 
*CCMZ 
*COM1 
*comM2 
*COPY 


VALUE 


0020 
0011 
OOEF 
0091 
OOEN 
0052 
0053 
0059 
OO5E 
0048 
904C 
003C 
003E 
0070 
0079 
002D 
0078 
NOTA 
OOF4 
O1E0 
OOTF 
0080 
O0F2 


OO7F 
oo1c 
0023 
0078 
000A 
001B 
003C 
0037 
OO5A 
006 
0018 
0071 
0010 
0007 
0014 
0048 
0046 
0020 
0015 
OOLE 
0010 
0009 
0008 
OOUF 
0000 
OOO0E 
oo0oc 
0004 
OOOoF 
003? 
0019 
OOIA 
ool! 
0041 
0008 
0012 
0016 


0050 
9017 
9055 
0020 
0002 
9093 
0004 
OOA0 
OOAL 
0078 
9001 
0380 
04c0 
0600 
0005 


REL 
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2[F9000O9000 Geno o coaoogooeo0o e000 9000000000000 0000 009 0000 


DEFN 


0276 
0270 
0954 
0405 
0533 
0338 
0339 
0345 
0349 
0329 
0330 
0310 
0312 
0373 
0369 
0288 
o371 
0370 
0957 
087s 
0375 
0376 
0707 


1012 
0902 
0908 
0909 
0885s 
0901 
0913 
0912 
0919 
0881 
c898 
0907 
0891 
0882 
C894 
0916 
0915 
0910 
0895 
0904 
0903 
0884 
C886 
0905 
C888 
0889 
0887 
0880 
e890 
o91l 
c8s99 
0900 
C892 
0914 
0883 
0893 
C896 


C917 
0897 
0918 
0906 
0997 
0934 
1014 
0940 
0941 
0926 
0972 
1003 
1094 
1005 
1015 


REFERENCES 
0331 
0264 0407 
0302 
0308 0325 
0951 
0318 0333 
0332 
0322 0324 
0338 
0604 0606 
0660 0764 
0779 C780 
0831 0834 
0862 
1075 1078 
0870 


0347 0351 


0765 
o78l 
0835 


1079 


0766 
0782 
0838 


1080 


0768 
0799 
0840 


1082 


0769 
9803 
0841 


1086 


0770 
0804 
0843 


1087 


o771 
0805 
0845 


1088 


0772 
0806 
0849 


1094 


0773 
0812 
0850 


1096 


O774 
0813 
0851 


1098 


O775 
O8l7 
0853 


1100 


O776 O777 O778 
0818 0819 0823 
0854 0856 0861 


1105 
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SYMBOL 


*CORE 

*CPTR 
*NCOM 
*pocTA 
"DKEP 
*NKIP 
"ONTO 
"DREQ 
*poTye 
*NZID0 
*O1ID 
"FILE 
*HCIS 
*HONG 
*HEND 
*HWCT 
*roa0 
*ILS4 
*ESTV 
*ITvXx 
*KBCP 
*KACV 
"LOAD 
*LFEN 
*LFHD 
*LENM 
*LSCT 
*MCOR 
*MCRA 
*MXDR 
"NEXT 
*OVSW 
*PTCV 
*RIAD 
*RTBL 
*SCIB 
*SCTN 
"SLET 
*STRT 
*SUP6 
*SUP7 
*TCNT 
*TVWC 
"UAFX 
"WONT 
*WOSA 
*XCTL 
*XEQA 
"XR3X 
"1132 

"1134 
"1403 

*1442 

*2501 
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VALUE 


001C 
OO8E 
0001 
0001 
OOF9 
OOFT 
0098 
0002 
0008 
0096 
0097 
0003 
0003 
0007 
9010 
0004 
000 
0o1l 
0033 
0008 
0092 
0095 
0006 
0003 
0005 
0000 
0005 
1000 
OO06E 
0005 
0004 
OOLA 
0094 
0002 
0006 
0010 
0000 
0003 
0000 
9073 
0074 
on1L1 
9008 
oon) 
0909 
0903 
0007 
9000 
OOOA 
o0RD 
009. 
onBCc 
0090 
O8F 


REL 
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DEFN 


0985 
0929 
0962 
1016 
1007 
1008 
0939 
0Ss73 
1017 
0937 
0938 
0974 
1010 
0966 
0986 
C975 
0961 
0983 
1001 
0982 
0933 
0936 
0977 
c99l 
0990 
0996 
0976 
1011 
0923 
1002 
0995 
0984 
0935 
0963 
0965 
1009 
0992 
0964 
0967 
0924 
0925 
1096 
0979 
0993 
0980 
0994 
0978 
0971 
o98l 
0928 
0932 
0927 
0931 
0930 


REFERENCES 


0605 


1114 


1116 


0625 


APPENDIX I. SYSTEM LOCATION EQUIVALENCE TABLE (SLET) 


The addresses listed on the SLET printout are subject 


to change. 
constant, 


SYMBOL PH 


Oeeee oe 


*pDUP Ol 
*OUMP 05 
*EXIT 09 
*oUul3 0d 
*PRCI 11 
*FROZ 21 
*FROT 25 
"FRILL 29 
"FRI5 2D 
*FRIO 31 
*FR23 35 
*FR27T 39 
*AS11 54 
*ASIA 58 
*aSo2 5C 
*ASO6 60 
*ASSA 64 
*ASGR 68 
*SuP4 71 
*CLBl 78 
*CLBS 7C 
*CLB9 80 
*CL8D 84 
*2501 8F 
*cocv 93 
*DLID 97 
*PIXK 98 
*CIl2 Al 
*RGO6 B3 
*RG14 87 
*RG20 688 
*RG26 BF 
*RG36 C3 
*RG44 C7 
*RG58 CB 


Only the symbols and phase IDs will remain 


CORE 
AOOR 


7C50 
410E 
O1DE 
1782 
O1DE 
7A34 
7A34 
7A34 
7A34 
TA34 
7A34 
766E 
O18 
026A 
026A 
026A 
026A 
O&68 
O7FE 
01€0 
OSTA 
OA64 
0A64 
0000 
0000 
OOFO 
0000 
0000 
0906 
O73A 
O73A 
0782 
0782 
0782 
073A 


WORD 
COUNT 
ence 


0327 
0543 
0500 
os7c 
0260 
0280 
0280 
03CO 
0500 
0404 
03CO 
0140 
0050 
0085 
0158 
0196 
0199 
0380 
0280 
0642 
O1E8 
0140 
0140 
o0o09Cc 
00BB 
OLA2 
009Cc 
01C0 
O6E9 
06B3 
059E 
0205 
0236 
0582 
0505 


SCTR 
ADOR 


0008 
0018 
002A 
0031 
OO3E 
004D 
0059 
0066 
0073 
0083 
OOsF 
o009c 
OOAl 
OOA7 
OOAD 
0087 
OOBE 
00c3 
0000 
oooc 
OOEA 
OOFO 
OOF5 
OOF9 
OOFF 
0103 
OOoFS 
O1LOA 
0122 
0130 
0155 
0168 
0178 
0186 
0197 


SYMBOL 


*OCTL 
*OL/F 
*CFCE 
*0U14 
*ou1s8 
*FRO4G 
*FROB 
*FR12 
*FR16 
*FR20 
*FR24 
*aSoo 
"AS12 
“ASYM 
*AS2A 
*ASOT7 
*APCYV 
*SuP1 
*SuP5 
*CLB2 
*CLB6 
*CLBA 
*1403 
"1442 
*PTCV 
*ONID 
*PCWK 
*RGOO 
*RGOS 
*RG16 
*RG21 
*RG28 
*RG38 
*RG46 
*RG6O 


PH 


SYSTEM 


CORE 
AODR 


11DE 
O1DE 
TAO06 
TAO6 
OE6E 
TA34 
TA34 
TA34 
TA34 
TA34 
TA34 
O1LEO 
026A 
0000 
026C 
026A 
026A 
O4FE 
OTFE 
0580 
O87A 
OA64 
0000 
0000 
0000 
OOF O 
a000 
0212 
0906 
0762 
O73A 
0782 
0782 
0782 
O73A 


LOCATION EQUIVALENCE TABLE (SLET)? 


wORD 
COUNT 


O5A2 
03CO 
0ODB 
0248 
0140 
03COo 
0500 
03CO 
0500 
03co 
03Co0 
024F 
0185 
0130 
OOA6 
0166 
0097 
O2FE 
O3EA 
O4E2 
O1iE8 
0140 
0131 
OOAB 
0003 
0280 
00oBB 
0924 
oss) 
0467 
O6A0 
0457 
04E3 
04A8 
OOF4 


SCTR 
ADDR 
enee 


0008 
0010 
OO02E 
0038 
0040 
006F 
0058 
0069 
0077 
0087 
0092 
0090 
OO0A2 
OOAB 
OOAF 
00B9 
ooco 
00cé 
o00D2 
OO0E2 
OoEC 
OOF1 
OOF6 
OOFA 
0100 
0105 
OOFF 
o1oc 
0128 
0143 
O15SA 
O16A 
O1TA 
0188 
o19ce 


SYMBOL 


eeeee 


*STOR 
*OLTE 
*DULL 
SD0U1L5 
*FROL 
*FROS 
*FROO 
*FRL3 
"FRITZ 
*FR21 
*FR25 
*ACNV 
*AERM 
*ASO3 
*aSO09 
*ASTA 
*AINT 
*SsuP2 
*"SUP6 
*CLB3 
*CL87 
*CLBB 
*1132 
*1134 
*KBCV 
*PPRT 
*PCXK 
*RGO2 
*RG1LO 
*RG17T 
*RG22 
*RG32 
*RG40 
*RG52 


PH 
1d 


03 


CORE 
ADDR 


21DE 
O1DE 
TA06 
TA06 
761c 
TA34 
TA34 
TA34 
TA34 
TA34 
TA34 
oles 
OAC4 
O7TA 
0408 
026C 
O95A 
OTFE 
0506 
O&8TA 
OA64 
OBA6 
0000 
0000 
0000 
0000 
0000 
0906 
04A6 
0762 
0782 
0782 
0782 
O73A 


WORD 
COUNT 


0568 
O5A2 
0035 
0248 
O9E1 
0500 
03FO 
03CO 
0500 
03CO 
0500 
0088 
oocl 
0237 
O5E0 
0127 
0058 
0526 
O4F8 
O1Es 
0140 
0140 
0126 
016C 
0003 
0131 
OOBB 
0854 
OTE6 
O68A 
0246 
O6A4 
054D 
0374 


SCTR 
ADDR 
eone 


0010 
0020 
002F 
003A 
0041 
0052 
005F 
006C 
0078 
OO8A 
0095 
OO9F 
OOA4 
O0A9 
0080 
0OBB 
o00cl 
00c9 
0006 
OOE6 
OOEE 
0O0F2 
OOFT 
OOFB 
0101 
OOF6 
OOFF 
0114 
012F 
0147 
0160 
O16E 
O17E 
O18F 


SYMBOL 


*FILQ 
*DFNE 
*OUL2 
*DUL6 
*FRO2 
* FROG 
*FR1O 
*FRI4 
*FRISB 
*FR22 
SFR26 
"aS10 
*ASOL 
*ASO4 
*aSO5 
*aSOB8 
*ASAA 


*SUP3 


*SUuPT7 
*CLB4 
*CLBS 
*CLBC 
*CPTR 
*KBCP 
*OZID 
*PIWK 
*CIL1 
*RGO4 
*RG12 
*RG19 
*RG24 
*RG34 
*RG42 
*RG5S4 


CORE 
ADOR 


OLDE 
010E 
TAO6 
7A06 
7A34 
TA34 
7A34 
7A34 
7A34 
7A34 
7B8E 
O1E8 
026A 
026A 
026A 
026A 
095A 
O7FE 
0400 
087A 
OA6S 
OB7A 
0000 
0000 
ooFro 
0000 
0000 
0906 
073A 
O73A 
0782 
0782 
0782 
073A 


WORD 
COUNT 


03C0 
05A2 
0001 . 
0248 
b500 
0300 
03C0 
0500 
0500 
0280 
03Co 
0067 
O19A 
OLAF 
019A 
0191 
005E 
0280 
0189 
O1ES 
0140 
O1ES 
0118 
0174 
OOEC 
009C 
0170 
0794 
0820 
0909 
0657 
0443 
037¢ 
0615 
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SCTR 
AODR 
eave 


0015 
0025 
0030 
003C 
0049 
0056 
0063 
O06F 
OO7F 
008D. 
0099 
OOAO 
OOAS 
OOAB 
0085 
oosc 
00C2 
OOCcE 
OODA 
OOE8 
OOEF 
OOF3 


OOFD 
0102 
OOF 9 
0108 
0118 
0136 
O14D 
0162 
0174 
0183 
0192 
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APPENDIX J, MONITOR SYSTEM SAMPLE PROGRAMS 


Sample programs 1, 2 and 3 are provided with the 
Monitor system. The first is a FORTRAN compila- 
tion, the second is an assembly and the third is an 
RPG compilation (RPG is supplied with the card 
system only). All three programs are loaded and 
processed as monitor jobs and are listed on the 
principal printer. 

The output of the FORTRAN problem is printed 
on the printer specified on the IOCS control card. 
The output of the Assembler problem is printed on 
the Console Printer. The output of the RPG prob- 
lem is printed on the printer specified as the output 
device on a file description sheet. 

Sample programs 3, 4, 5 and 6 are not provided 
with the Monitor system. They illustrate techniques 
described in the Programming Tips and Techniques 
section of this manual. 


1. FORTRAN SAMPLE PROGRAM 


The FORTRAN sample program is listed below as 
it runs on a 4K and 8K system (the LIST ALL card 
is removed on the 8K run), This program reads 
data cards supplied with the program and builds 
three files on disk, one in the User Area and two 

in Working Storage. The core and file maps for the 
program are described in the Programming Tips 
and Techniques section of this manual. 


Card CHK13030. 


If printed output is on a 1403 Printer, change the 
entry from 1132 PRINTER to 1403 PRINTER, 


If printed output is on the Console Printer, cha- 
nge the IOCS entry from 1132 PRINTER to TYPE- 
WRITER. 


Card CHK13040 


If card input is from a 2501 Reader, change the 
IOCS entry from CARD to 2501 READER, 


Card CHK13180 


If card input is from a 2501 Reader, change 
M=2 to M=8, 


Card CHK13190 


If printer output is on a 1403 Printer, change 
L=3 to L=1, 


If printer output is on a Console Printer, change 
L=3 to L=1, 


The FORTRAN card sample program as sup- 
plied uses a 1442-6, or -7, and 1132 Printer and 
disk. The paper tape sample program uses an 1134 
Paper Tape Reader, a Console Printer, and disk. 
If your system does not have the required configur- 
ation, it will be necessary to make changes to the 
program. These changes are listed below. 
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FORTRAN Sample Program Run on 4K 


4/ JOB 09/27/67 CHK12970 

LOG ORIVE CART SPEC CART AVAIL PHY DRIVE 
0000 oooF oooF 0000 

// DUP CHK12980 

#STOREDATA WS UA FILEA 2 CHK12990 
CART 10 O00OF DB ADDR 1AE0 DB CNT 0020 

// # TBM 1130 FORTRAN SAMPLE PROGRAM CHK13000 

// FOR CHK13010 

#ONE WORD INTEGERS CHK13020 

#IOCS(DISKs1132 PRINTER) CHK13030 

*#IOCSICARD) CHK13040 

*LIST ALL CHK13060 

¢ 18M 1130 FORTRAN SAMPLE PROGRAM CHK23070 

¢ SIMULTANEOUS EQUATION PROGRAM CHK13080 

¢ CHK23084 

INTEGER VloeV2eV3 CHK13086 

DIMENSION A(10910)9X(10) 08(140} CHK13090 

DEFINE FILE 101(19100 oUeV1) 910211910 sU0V2) 9103 (12100 0UsV3) CHK13095 

301 FORMAT (1H1 s20X15HINCOMPATIBILITY) CHK13100 

302 FORMAT (1H 20X41MMORE EQUATIONS THAN UNKNOWNS@=NO SOLUTIONS) CHK23210 

309 FORMAT (1H 20X46HMORE UNKNOWNS THAN EQUATIONS@SEVERAL SOLUTIONS) CHK13120 

304 FORMAT (1H 20X15HSOLUTION MATRIX} CHK13130 

305 FORMAT (1H 2OX8HMATRIX A) CHK13240 

306 FORMAT (1H 20X8HMATRIX B) CHK13150 

307 FORMAT (1H 20X10H A=INVERSE) CHK13160 

308 FORMAT (1H 20X24HOIAGONAL ELEMENT IS ZERO) CHK13170 

Ma2 CHK23180 

L=s3 CHK13190 

READ (Me10) CHK13200 

10 FORMAT (80H SPACE FOR TITLE CHK13210 

1 ) CHK 13220 

WRITE (L910) CHK13230 

12 FORMAT (6110920X) CHK13240 

READ (Me12) MloMZeL1oL2eN1oN2 CHK13250 

¢ CHK13255 

¢ Ml = NOs OF ROWS OF A CHK13260 

¢ M2 = NOe OF COLS OF A CHK13270 

€ L2 @ NOs OF ROWS OF X CHK13280 

¢ 2 = NOs OF COLS OF x CHK13290 

€ N21 # NOe OF ROWS OF 8 CHK13300 

¢ N2 = NOe OF COLS OF 8 CHK13310 

€ CHK13315 

13 FORMAT (7F1004910X) CHK13320 

17 FORMAT (10F10.4) CHK13330 

TF (N2—1)63 064263 CHK13340 

64 IF (L2—11)63265 963 CHK13350 

65 IF (L1=M2)63966063 CHK13360 

66 ITF (MI9N1)63011563 CHK13370 

63 WRITE (L»301) CHK13380 

GO TO 2 CHK13390 

31 = Nem) CHK13400 

NeM2 CHK13410 

IF (M1—-M2) 91014093 CHK13420 

91 WRITE (L5302) CHK13430 

60 TO 2 CHK13440 

93 WRITE (L+303) CHK13450 

GO TO 2 CHK13460 

14 WRITE (19305) CHK13470 

00 70 IeleN CHK13480 

READ (MelS) (AUT oJ) 9 Jalen) CHK13490 

WRITE (L017) (ACToJ)s JeloN) CHK13500 

WRITE (LOLFLTICACT od} 9 Jalon) CHK 13505 

70 CONTINUE CHK13510 

89 FORMAT (F 10049 70X) CHK13520 

WRITE (10306) CHK13530 

READ (M989) (BCT) ImleN) CHK13540 

WRITE (L089) (B(E)e Teton) CHK13550 

WRITE (102°L)(BCI)® Telen) CHK13554 

¢€ CHK 135586 

¢ INVERSION QF A CHK13560 

c CHK13565 

00 120 K#loN CHK13570 

DeA(K K) CHK13580 

TF (0)409200 240 CHK13590 

40 A(KoK)9100 CHK 13600 

DO 60 Jalen CHK13610 

60 A(KeJ BAI Ks JI /D CHK13620 

TF (KON) 8091309130 CHK13630 

80 IKake) CHK13640 

DO 120 TeIKeN CHK13650 

DeaAtl ok) CHK 13660 

ACToK12020 CHK13670 
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BO 120 Jalen 
120 


BACK SOLUTION 


anN 


IKeN=1 

DO 180 Kelolk 
liekel 

DO 180 IefloeN 
DaA(Kel) 
A(Kol)#000 

DO 180 Jalon 


130 


180 
GO TO 202 
WRITE (5308) 
GO TO 2 
WRITE (b3307) 
DO 201 T#lsN 
WRITE (Lol?) 
WRITE (10341) 
CONTINUE 
DO 21 TeloeNn 
X(1)#0.0 
DO 21 KeloN 
XCD SXCTISACT oKI#B(K) 
WRITE (b2304) 
WRITE (1289) 
2 CALL EXIT 
END 
VARIABLE ALLOCATIONS 


200 
202 


201 


21 


ACT eJISALT oe JIM(DHA(Ke J)) 


A(KeJIBA( Ket (DAC To J)) 


(ACToJ)e Jalen) 
(A(TeJ) 0 Jalen) 


(X(T) 0 TmloN) 


A(R )2000C-0016 X(R }s00FO={00DE BIR 
V3(T )#020E M(I )mO20F a | 
L2¢1 )s0214 N1CT 320215 N2(! 
K(T )s021A IK(I }#0218 T1LCY 
STATEMENT ALLOCATIONS 
301 2022A 302 #0237 303 #0251 304 #0260 
13 20205 17 20209 89 #0200 64 #031C 
14 20350 70 203A2 40 20407 60 #0416 
201 #0522 21 #053C 2 20588 
FEATURES SUPPORTED 
ONE WORD INTEGERS 
10¢s 
CALLED SUBPROGRAMS 
FADDX FMPYX Folv FLD FLOX FSTO 
SIOt SUBSC SOF IO SOwRT SOCOM SOFX 
REAL CONSTANTS 
elQ0O000E 0120220 eOOO0000E 0020222 
INTEGER CONSTANTS 
220224 320225 120226 1010227 
CORE REQUIREMENTS FOR 
COMMON O VARIABLES 5&4 PROGRAM 874 


END OF COMPILATION 


4/7 XEQ i 2 
#LOCAL o FLOAT oFARC SIFIX 
#FILES(1LOSeFILEA) 
FILES ALLOCATION 
103 O1AE 0001 OOOF FILEA 
101 0000 0001 OOOF 0180 
102 0001 0001 OOOF 0180 
STORAGE ALLOCATION 


R 40 03AB (HEX) ADOITIONAL CORE REQUIRD 


R 43 O124 (HEX) 


ARITH/FUNC SOCAL WD CNT 


R && O6AC (HEX) FI/O» 1/0 SOCAL WD CNT 
R 45 O2A2 (HEX) OISK FI/O SOCAL WO CNT 


R 41 
LIBF TRANSFER VECTOR 
EBCTB OFS3 SOCAL 
HOLTA OF17 SOCAL 
GETAD O€D4 SOCAL 
XMDS 0982 SOCAL 
HOLEZ O£9E SOCAL 
NORM 070C 

FADOX 0950 SOCAL 
FSBRX 0934 SOCAL 
FMPYX 0900 SOCAL 
FDIV OB8AE SOCAL 
FSTOX 0788 
FLOX OTAS 
SDCOM 0920 
SOFX Ose6 


oo ee DD 


SOCAL 
SOCAL 


ww 


0004 (HEX) WOS UNUSED BY CORE LOAD 


CHK13660 
CHK13690 


CHK136 
CHK137 
CHK137 
CHK137 
CHK137 


95 
00 
05 
10 
20 


CHK13730 
CHK13740 


CHK137 
CHK137 
CHK137 
CHK137 
CHK137 
CHK138 
CHK138 
CHK138 
CHK138 
CHK138 
CHK138 
CHK138 
CHK138 
CHK138 
CHK138 
CHK138 
CHK139 
CHK139 
CHK139 
CHK139 


120 208-00F2 
920210 
120216 
1#021¢ 


D(R }"020A 
mMi(T )#02211 
N(T 280217 


305 
65 
80 


2027A 306 
20322 66 
20432 120 


20283 
20328 
20451 


307 
63 
130 


FSTOX FSBRX CARDZ PRNTZ 


10220228 10320229 


CHK139 
CHK139 
CHK139 


50 
60 
70 
80 
90 
00 
10 
20 
30 
40 
45 
50 
60 
70 
80 
90 
00 
10 
40 
50 


Vi¢r )#020C 
M2(t )#0212 
I(T )#0218 


*028C 308 
#032E 11 
20484 180 


#0296 
20334 
e044) 


SREO SwRT 


60 
63 
65 


vat! 

Lact 

Jt 

10 202A7 

91 #0344 

200 04E2 
ScompP SFIO 


120200 
)#0213 
120219 


12 =09D1 
93 =O004A 
202 s0=E8 


STolx 
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SOWRT 0954 SOCAL 5 
SIOFX 099A SOCAL 2 
SuBsc O7BE 
S101 Q99E SOCAL 2 
SCOMP 0982 SOCAL 2 
SWRT O8AB SOCAL 2 
SRED 0880 SOCAL 2 
FsTO 078C 
FLO O7A8 


PRNTZ ODEO SOCAL 
CARDZ 0036 SOCAL 
SFIO O9AD SOCAL 
SOFIO 0989 SOCAL 
IF IX 087C LOCAL 
FARC 087C LOCAL 
FLOAT O87C LOCAL 
SYSTEM SUBROUTINES 
ILSO4 00C4 
1L$02 0083 
TLSO1 OFSA 
ILSOO 8 OFT5 
FLIPR 0816 
0400 (HEX) IS THE EXECUTION ADOR 


ub he AD RD 


1BM 1130 FORTRAN SAMPLE PROGRAM 
MATRIX A 
#o2150 9 <142120 121050 
221200 323080 716320 
161220 =143130 309860 


MATRIX B 
322160 
122470 
203456 

A~INVERSE 


002915 020833 020467 
001631 003836 001116 
=0.20283 0201029 023008 
SOLUTION MATRIX 
009321 
122654 
027429 


FORTRAN Sample Program Run on 8K 


4/7 408 09/27/67 
LOG DRIVE CART SPEC CART AVAIL PHY ORIVE 
0000 OOOF OOOF 0000 


// # TBM 1130 FORTRAN SAMPLE PROGRAM 


// FOR 

*ONE WORD INTEGERS 
#EOCS(DISKs1132 PRINTER) 
#IOCSI(CARD) 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
10¢cs 


CORE REQUIREMENTS FOR 
COMMON O VARIABLES 544 PROGRAM 874 


END OF COMPILATION 


4¢ X€Q uj 1 
@FILES CIOS SFILEA) 
FILES ALLOCATION 
103 OLAE 0001 OOOF FILEA 
101 0000 0001 O00F 0180 
102 0001 0001 OOOF 0180 
STORAGE ALLOCATION 
R41 OC9C (HEX) WDOS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 
€scrse 12¢€0 
HOLTB 1291 
GETAD 124€ 
NORM 1224 
XMOS 1208 
FARC 11£6 
HOLEZ 1180 
FLOAT 11A6 
IF IX 117A 
FADDX 1125 
FSBRX 10FC 
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CHK1397 


CHK12970 


CHK23000 


CHK13010 
CHK13020 
CHK13030 
CHK13040 


CHK13960 
CHK13965 


FMPYX 10C8 
FOIV 1076 
FSTOX 101€ 
FLOX 103A 
SOCOM O7FE 
SOFX O07C4 
SOWRT 0832 
SIOFX OB1A 
SuBSC 1054 
S10! OB81E 
SCcOMP 0802 
SWRT OA28 
SRED 6A30 
FSTO 1022 
FLO 103€ 
PRNTZ OF60 
CARDZ OEF86 
SFIO 0620 
SOFIO 0837 
SYSTEM SUBROUTINES 
TL$04 8 00C4 
ILS02 0083 
IL$O1 1202 
IL$00 12€D 
0400 (HEX) IS THE EXECUTION ADOR 


18M 1130 FORTRAN SAMPLE PROGRAM 
MATRIX A 
402150 =102120 121050 
221200 305050 —126320 
1.1220 -1.3130 329860 


MATRIX B 
302160 
302470 
203456 

Am INVERSE 


0029158 0.0833 ~0.0467 
021631 003836 001118 
=0 20283 001029 023008 
SOLUTION MATRIX 
029321 
122654 
007429 


2. ASSEMBLY SAMPLE PROGRAM 


The core map for the Assembler sample program 


is described in the Programming Tips and Tech- 


niques section of this manual. 


Output on Principal Printer 

// 308 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 2027 2027 0002 

11 ASM 

*LIST 


*PRINT SYMBOL TABLE 


0000 
0001 
0002 
0004 
0005 


0006 
0007 


C030 
06406063 
06898640 
091899C0 
1008 


E829 
0018 


KEREEKEEKKKERLAEEKHEKERKEKAEKS EKAEKEEKSEKKEKKERESEEKERERES 


* 
* 
* 
* 


SERKERKKEEKERKERRAEKEREKEEEKEAKERERERAAK AKERS EKEEEEERE 


COMPUTE THE SQUARE ROOT OF 64 


THIS PROGRAM COMPUTES THE SQUARE ROOT OF 64 
*AND PRINTS THE RESULT ON THE CONSOLE PRINTER.* 


BEGIN LD 064 INPUT TO THE SQUARE ROOT 
LIBF FLOAT INTEGER TO FLOATING PT. 
CALL FSQR FLOATING PT. SQRT. 
LIBF IFIX FLOATING PT. TO INTEGER 
SLA 8 


MASK TO BUILD EBCDIC INTEGER 
RESULT AND EBCDIC BLANK IN WORDL. 
OR MASK 
Sto WORD1 CONVERSION INPUT AREA 
CONVERT MESSAGE FROM EBCDIC 
TO ROTATE/TILT CODE. 


CHK1397 


SMASMOO1 


SMASMOO2 
SMASM003 
SMASMO004 


SMASMO06 
SMASMOO7 
SMASMO08 
SMASMO09 
SMASMO10 
SMASMOL1 
SMASMO12 
SMASMOL3 
SMASMOL4 
SMASMO15 
SMASMO16 
SMASMOL7 
SMASMOLB 
SMASMOLO 
SMASMO20 
SMASMO21 
SMASMO22 
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0008 20 05097663 


0009 0 0000 
QO00A 1 0023 
000B 1 0015 
000c 0 OO1A 
000D 20 23A17170 
O00E 0 2000 
OOOF 1 0014 
0010 20 23A17170 
QoLL 0 0000 
0012 0 70FD 
0013 0 6038 
0014 0 OO0E 
0015 000D 
0022 0 8181 
0023 0 0000 
0024 0018 
0030 0 F040 
0031 0 0040 


0032 0000 


BEGIN 0000 
WORD] 0023 


BUSY 


TYPE 


WORDL 


MASK 
D64 


BUSY 


LIBF 


oc 
oC 
oc 
LIBF 
oc 


LIBF 


MDX 
EXIT 
DC 
BSS 


bc 
EBC 
oc 
oc 
END 


*SYMBOL 


0010 


000 OVERFLOW SECTORS SPECIFIED 
000 OVERFLOW SECTORS REQUIRED 
006 SYMBOLS DEFINED 


NO ERRORS) 
7/7 XEQ L 


EBPRT 
0 
WORD1 
TYPE+1 
26 
TYPEO 
42000 
TYPE 
TYPEO 


BUSY 


14 

13 
/8181 
«—-*% 


CALL CONVERSION SUBROUTINE 
CONTROL PARAMETER 

INPUT AREA 

OUTPUT AREA 

CHARACTER COUNT 

TYPE MESSAGE 

CONTROL PARAMETER 

1/0 AREA 

WAIT FOR TYPING COMPLETE 


BR TO WAIT FOR COMPLETION 
RETURN TO MONITOR CONTROL 
1/0 AREA WORD COUNT 
RESERVE AS PRINT BUFFER 
TWO CARRIAGE RETURNS 
CONVERSION INPUT AREA 


eIS THE SQUARE ROOT OF 64. 


/F040 
64 
BEGIN 


TABLE* 


D64 


FLAGGED IN ABOVE ASSEMBLY 


R 41 7904 (HEX) WDS UNUSED BY CORE LOAD 


CALL TRANSFER VECTOR 


FSQR 0248 


LIBF TRANSFER VECTOR 


FARC 069€ 
XMDS 0682 
HOLL 0632 
PRTY 05E2 
EBPA 0592 
FADD 04E1 
FDIV 0540 
FLD 048C 
FADDX 04E7 
FMPYX 04A2 
FSTO 0470 
FGETP 0456 
NORM  042C 
TYPEO 0312 
EBPRT O2AC 
IFIX 0280 
FLOAT 0230 


SYSTEM SUBROUTINES 


ILS04 00C4 
ILSO2 0083 


OLFE (HEX) IS THE EXECUTION ADOR 


Output on Console Printer 





8 1S THE SQUARE ROOT OF 64 


3. RPG SAMPLE PROGRAM 


EBCDIC INTEGER MASK 
CONSTANT FOR SQUARE ROOT 


0031 MASK 0030 TYPE 


The RPG sample program is defined for 2501 input 
and 1132 output. For systems with other configura- 
tions the input and output file specifications can be 
changed. Use READO1 for a 2501 Card Read Punch, 
PRINT03 for a 1403 Printer and CONSOLE for a 


Console Printer. 
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SMASMO23 
SMASMO24 
SMASMO25 
SMASMO026 
SMASMO27 
SMASMO28 
SMASM029 
SMASMO30 
SMASMO31 
SMASMO32 
SMASMO33 
SMASM034 
SMASMO35 
SMASMO036 
SMASMO37 
SMASM038 
SMASMO039 
SMASM040 
SMASM041 
SMASM042 


0014 


SMASMO43 


Output on Principal Printer. 


47 JOB 
LOG DRIVE 
ocoo 
77 RPG 
SEG NG FG 
0001 01 
0002 O11 
0003 02 
0004 02 
0005 02 
o0cé 02 
0007 02 
coos 02 
0009 02 
0010 o2 
0011 o2 
c012 03 
0013 o3 
0014 04 
0015 04 
oo16 04 
0017 04 
co18 04 
0019 04 
0020 O4 
0021 04 
0022 04 
co23 04 
0024 04 
0025 04 
0026 04 
0027 04 
0028 04 
Qo29 04 
oc30 (oF) 
0031 os 
0032 os 
0033 os 
0034 os 
0035 os 
0036 0s 
0037 os 
a038 os 
0039 os 
0040 os 
0041 os 
0042 os 
0043 os 
0044 os 


CART SPEC 
121¢ 


LIN 


010 
020 
010 
020 
030 
040 
ose 
060 
o70 
oso 
090 
010 
020 
010 
020 
030 
040 
oso 
060 
070 
aso 
oso 
100 
110 
120 
130 
140 
1s0 
160 
010 
020 
030 
040 
oso 
060 
070 


080 
090 


100 
110 
120 
130 
140 
150 


SPECIFICATIONS CCt 6 - 


CART AVAIL PHY DRIVE 
1219 0002 
Vi-O 1120 RPG 


74 


RGSPL 


H 

F* 1130 RPG SAMPLE PROGRAMe 

F% THIS PROGRAM PRINTS AN ACCOUNTS FECELVABLE REGISTER WITH 

Fe INVOICE TOTALS e« CUSTCMER TOTALS PRINT AS A RESULT OF A CONTRCL 
F* BREAK IN COLUMNS 39-43 OF THE INPUT CARD.s CORRECT CUTPUT 

Fe AFPEARS IN ACCOMPANYING COCUMENTATIONe CAROS ARE SORTED CN 
F* COLUMNS 39-43 AND ARE IDENTIFEZED €Y AN ELEVEN PUNCH IN CARD 
F* COLUMN le 

Fe 

FINPUT IPE F 80 READ 42 

FCUTPUT OC F 120 PRINTER 

ITINPUT AA O1 1 2- 

I 8 29 NAME 

I 30 310MONTH 

I 32 330DAY 

I 34 ZE&0INVNO 

I 329 8 8430CUSTNOLI 

I 44 4S50STATE 

I 46 480CITY 

I 74 802INVAMT 

c o1 INVAMT ACC TCTAL TOTAL ee 

c o1 INVAMT ACC GRPTOT GRPTOTF &2 

GCOUTPUT H 201 ip 

c CR OF 

is) s3 ° ACcCCGUNTS R® 
c 77 *&CEIVABLE RE! 
c ee "RE GIS TE R® 

c H 1 ip 

Qo OR OF 

G 25 *CUSTOMER® 

o 20 "LOCATION INVOICE ® 
c 109 *INVOICE DATE INVCICE® 
is) He 2: 1p 

Cc GR oF 

a 42 "NUMBER CUSTOMER * 
c 46 "NAME ® 

Cc 78 "ETATE city NUMBER? 
o 108 *#o DAY AMOUNT® 

c Db 2 01 

c CUSTNG2Z 22 

G NAME $3 

c STATE 2 s9 

o city 2 67 

Cc INVNO 2 79 

a MONTH 2 e9 

c DAY 2 S7 

c ENVAMT 109 *s » Oe * 

Q T 2 Li 

Qo GRPTOT B 1060 *$ eo Oo . 

Cc 110 xe 

3) tT 2 LR 

c TOTAL 109 °$ >» Qe * 

Qo 111 ¢ase 


ERRORS 


RGSPL 

RGSOO] 
RESO002 
RGSO0O3 
FGS004 
RGSOO0S 
RGSOO06 
RGSCO7 
RGS008 
RESO09 
FGSO10 
Fesoli 
RGSO12 
RGSO13 
RCESO14 
RGSOIS 
FGSO16 
FESO17 
RGSO0O18 
RGSO19 
RGSO020 
FGSo21 
RGSso22 
FGSO023 
FGSO024 
RGSo2s 
RGSO026 
RGS027 
RGSO028 
FEso29 
RGSO30 
RESO031 
RGSO32 
RGSO33 
RGSO34 
FGSO35 
RCSO36 
RGSO037 
RGSO38 
RGSO39 
RGSO040 
RGSO41 
RGSO42 
RGSO043 
RGS044 


RGSO45S 
RGS046 


RGSO047 
RGS048 
RGS049 
RGSOSsO 
RGSO5S2 
RGSsOs2 
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INDICATORS 


Inc OIsp INO DIsP INO OIsp IND OISP IND DisP IND OIsP 
MR 0150 oo 0151 OF 01S2 ov 0153 1p 0154 Lo 0156 
ul 0156 t2 0157 L3 0188 L4 e159 6 O1SA Lé 0158 
7 01SC Le 015D L9 O15E LR O1sE H1 0160 H2 0161 
Hg 0162 4 0163 HS 0164 H6 0165 H7 0166 H8 0167 
H9 0168 o1 0169 


FIELD NAMES 


FIELD OIspP t TODO FIELD OIsP t TO FIELD OIspP t TOD FIELD DISP kL FO 
NAME OLGA O22 A MONTH 0181 002 N O CAY 0184 002 N @ INVNO 0187 OOS N O 
CUSTNG 0180 00S N O STATE 0193 002 N O ciTy 01966 003 N O INVAMT O19A 007 N 2 
TOTAL O01A2 008 N 2 GRPTOT O1AB 008 N 2 
LITERALS 
LITERAL LENGTH TYPE orsp LITERAL LENGTH TYPE OISP 
AcCQuUNTS R 24 A 01B4 EcEIVABLE RE 24 A o1cD 
REGISTER 15 A O1E6 CUSTOMER 8 A O1F6 
LOCATION INVCICE 22 A O1FF INVGECE DATE INVOFCE 23 A 0216 
NUPEER CUSTOMER 24 A O22E NAME 4 A 0247 
STATE city NUMBER 24 A 024C “a DAY AMOUNT 21 A 0265 
» e 11 E 02768 * 1 A 0287 
** 2 A o2es 
KEY ADDRESSES OF OBJECT PROGRAM 
NAME CF ROUTINE HEX CISP NAME OF ROUTINE HEX DISP 
H + 0 LINES O40E TOTAL LINES O4EC 
CETAIL CALCS O46E TGTAL CALCS 047D 
CHAIN ROUT 1 o3Cb2 CCNTROL FLD O3F5S 
LOw FIELC 042E ExcPT LINES O4FA 
CLOSE FILES 0684 FILE see 1 O2EC 


FILE SEC 2 0377 
END OF COMPILATICN 


7/7 XEQ L R 
R 41 OD4C (HEX) WDS UNUSED BY CORE LOAD 
CALL TRANSFER VECTOR 

RGERR 1180 

EEFT3 0886 

HLEBC 0984 
LIEF TRANSFER VECTOR 

RGSIS 11C6 

RGBLK 1146 

RGEDT OFF6 

RGMV2 OF 42 

RGADD oDp79 

RGSI1 oOD1C 

RGMVS OCOE 

RGMV3 OCEC 

RGCMP OC9A 

RGMV1 O0Cc06 

PRNT1L 0A04 

ZIPCO 08E4 

READO 0884 
SYSTEM SUBROUTINES 

ILSX4 1226 

ILSxX2 1240 

ILSX1 1266 : 

O20F (HEX) IS THE EXECUTION ADDR 
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-Output on 1132, 


CUSTOMER 
NUMBER 


10712 


11315 
11315 


11897 


18530 
18530 


20716 
20716 


29017 
29017 


29054 
29054 
29054 


ACCOUNTS RECEIVABLE 


CUSTOMER NAME 
AMALGAMATED CORP 


BROWN WHOLESALE 
BROWN WHOLESALE 


FARM IMPLEMENTS 


BLACK OIL 
BLACK OIL 


LEATHER BELT CO 
LEATHER BELT CO 


GENERAL MFG CO 
GENERAL MFG CO 


A-b-C DIST CO 
A~B-C DIST CO 
A=Be-C DIST CO 


LOCATION 
STATE CITY 
33 61 
30 231 
30 231 
47 77 
16 67 
16 67 
36 471 
36 471 
63 

63 

25 39 
25 39 
25 39 


REGISTER 


INVOICE 

NUMBER MO 
11603 li 
12324 dé 
99586 12 
40904 10 
11509 11 
12292 12 
12521 il 
12263 42 
11615 il 
11576 11 
9689 9 
11605 li 
12234 12 


INVOICE DATE 
DAY 


iQ 


26 
14 


e¢ & & & & 


13 


& fF & 


e ee 


~ 
“n a 
w 


14 
23 


ll 
wt 
14 


eeertvw.¢e were + 


TNVOICe 
AMOUNT 


389e¢9 
239 e2o* 
602005 
261lel7 
1 9063625% 
27063 
<7e63* 
592099 
95ou0e47 
19543e9c* 
335463 
léle7> 
407 e3b* 
44Uel2 
T22ece 
19162034* 
64504 
271069 
559033 
10476042 
6 el 2Z0UelL Ge 
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4. USING FORTRAN UNFORMATTED I/O 


This program is referred to in the section 
"Initializing $$$$$ Data Files for Use with 
FORTRAN Unformatted I/O" in Programming 


Tips and Techniques. 


// JOB 2111 


LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 1121 1121 0001 


// oduUP 


*#STOREDATA WS FX $$$8$$ 0010 
CART 10 1111 DB ADOR 1FAO 08 CNT O0AO 


// FOR 
#ITOCS(UDISK) 
#LIST ALL 
#NAME UNFOX 

DIMENSION A200) 9B(24) 9C(300) 9£(12) 9F (300) 

DATA A/200%400/ 9B/24#500/ 9C/300#600/ 

WRITE (1O)A 

WRITE(10)8 

WRITE (LOIC 

END FILE 10 

BACKSPACE 10 

BACKSPACE 10 

READ(10)F 

REWIND 10 

READ(10) 

READCIO)DE 

PAUSE 9999 

CALL EXIT 

END 
VARTABLE ALLOCATIONS 

A(R )#018E=-0000 B(R )#01BE=-0190 C(R )#0416-01C0 E(R )s042E-0418 


FEATURES SUPPORTED 
tocs 


CALLED SUBPROGRAMS 
URED UWRT UuCcOMP BCKSP EOF REWND PAUSE UFIO UILOAF 


INTEGER CONSTANTS 
1020688 999920689 =26215=068A 


CORE REQUIREMENTS FOR UNFOX 
COMMON © VARIABLES 1672 PROGRAM 52 


END OF COMPILATION 
7/7 OuP 


*STORE WS UA UNFOX 
CART 10 11112 DB ADOR 2850 OB CNT 0041 


// XEQ UNFOX 


F(R 


) 20686-0430 
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| 5. PROCESSING ON ONE DISK DRIVE A FILE 
THAT EXTENDS OVER TWO CARTRIDGES 


This program is referred to in the section "Reeling" 


in Programming Tips and Techniques. 


// JOB 1111 


LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 1111 1112 0000 


// FOR 
*NAME LINK2 
#10CS(1132 PRINTER) 
*I1OCS (DISK) 
*#ONE WORD INTEGERS 
*LIST SOURCE PROGRAM 
DIMENSION J(320) 
DEFINE FILE 2(20093200UsK) 
K = 1 
L = 0 
po 5 I = 19199 
L = b+} 
DO 4 N = 19320 
4 JIN) 2 
5 WRITE (2*K)J 
tL = 999 
DO 6 N = 19320 
6 JON) @ ek 
WRITE (2*K)J 
WRITE(3010) 
10 FORMAT(/* LINK NOe 2 EXECUTED: '/) 
CALL EXIT 
END 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
10cs 


CORE REQUIREMENTS FOR LINK2 
COMMON 0 VARIABLES 334 PROGRAM 142 


END OF COMPILATION 
// OUP 


*DUMP WS CO LINK2 
CART 10 12112 DB ADDR 2A60 DB CNT 0008 


// FOR 
*#NAME LINK 
*#TOCS(DISK91132 PRINTER) 
*#ONE WORD INTEGERS 
*LIST SOURCE PROGRAM 
DIMENSION J(320) 
DIMENSION L(2) 
DEFINE FILE 14210932002UsK) 
K=1] 
L(2) = 8738 
L(l) # O 
Mz0 
00 5 I = 19209 
M = M+} 
00 4 N ® 15320 
4 J(N) @ M 
5 WRITE (2°K)J 
Mz 999 
DO 6 N ® 19320 
6 J(N) = M 
WRITE (1°K)J 
WRITE (3940) 
40 FORMAT (4OHOLINK NOs 1 EXECUTEDs CHANGE CARTRIDGESe///) 
PAUSE 1111 
CALL SYSUP (L(2)) 
CALL LINK (LINK2) 
END 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
1ocs 


CORE REQUIREMENTS FOR LINK 
COMMON QO VARIABLES 336 PROGRAM 178 


END OF COMPILATION 
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// OUP 


*STORECI WS UA LINK1 0001 
*FILES(1sDATA1011211) 

FILES ALLOCATION 

1 0128 OOD2 1111 DATA 

STORAGE ALLOCATION 

R 41 OCO2 (HEX) WDS UNUSED BY CORE LOAD 
CALL TRANSFER VECTOR 

FSYSU 1359 

FSLEN 11A1 

SYSUP OC5A 
LIBF TRANSFER VECTOR 

NORM 1380 

FLOAT 1196 

IF IX 116A 

PAUSE 0C44 

SCOMP O77E 

SWRT 06A2 

SOCOM 0476 

SDAI 0433 

SOWRT O4AA 

SUBSC 0C26 

FSTO OBF4 

FLD 0c10 

PRNTZ 0832 

SFIO 0787 

SDFIO O4AF 

SYSTEM SUBROUTINES 

ILSO04 00C4 

ILSO2 0083 

1LSO01) 13AC 

0360 (HEX) IS THE EXECUTION ADDR 

CART 1D 1111 0B ADDR 2A60 OB CNT OOFO 


// PAUS CHANGE TO CARTRIDGE 2222 
// JOB 2222 


LOG ORIVE CART SPEC CART AVAIL PHY ORIVE 
0000 2222 2222 0000 


// ouUP 


*#STORECI cD OFX) «LINK2 0001 
*#FILES (2 sDATA2 92222) 
FILES ALLOCATION 
2 00A8 OOC8 2222 DATA2 

STORAGE ALLOCATION 
R41 1334 (HEX) WOS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 

NORM 0Cc54 

FLOAT OC4A 

IF IX Oc1E 

SCOMP 0758 

SWRT 067C 

SDCOM 0450 

SOAI 0400 

SOWRT 0484 

SUBSC 0¢c00 

FSTO OBCE 

FLO OBEA 

PRNTZ OBOC 

SFIO 0793 

SOFIO 0489 
SYSTEM SUBROUTINES 

ILS0& 00C4 

ILS02 0083 

ILSO1 0¢80 

0362 (HEX) IS THE EXECUTION ADDR 

CART ID 2222 DB ADDR 1700 OB CNT 0090 


// PAUS CHANGE TO CARTRIDGE 1111 

// JOB 1111 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 1211 11211 0000 

// XEQ LINK 

LINK NOse 1 EXECUTEDe CHANGE CARTRIOGESe 


LOG DRIVE CART SPEC CART AVAIL PHY ORIVE 
0000 2222 2222 0000 


LINK NOs 2 EXECUTED. 
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| 6. PROCESSING ON TWO DISK DRIVES A FILE 
THAT EXTENDS OVER TWO CARTRIDGES 


This program is referred to in the section "Reeling" 


in Programming Tips and Techniques. 


// JOB 2111 2222 


LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 


0000 1111 1111 0001 
0001 2222 2222 0002 
// FOR 
*NAME MOEX1 
*#10CS (DISK) 


*#ONE WORD INTEGERS 
*LIST SOURCE PROGRAM 
DIMENSION J(320) 
DEFINE FILE 1(21093209U 0K) 
DEFINE FILE 2(2009320sUsKK) 
Me 111 
K = 1 
KK = 1 
DO 2 N = 19320 
2 J(N) = M 
0O 3 I # 19209 
3 WRITE (1'K)J 
M = 999 
00 5 N = 19320 
5 J(N) = M 
WRITE (1'K)J 


00 8 I = 19199 
8 WRITE (2'KK)J 

M = 999 

DO 9 N ® 19320 
9 JIN) o M 

WRITE (2°*KK) J 

CALL EXIT 

END 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
1ocs 


CORE REQUIREMENTS FOR MDEX1 
COMMON O VARIABLES 340 PROGRAM 178 


END OF COMPILATION 
// oUP 


#STORE WS UA MDEX1 
CART 1D 1212 OB ADDR 2891 DB CNT 0000 


// XEQ MOEX1 L 2 
*#FILES(1sDATA1 91111) 
*FILES(2eDATA2 82222) 
FILES ALLOCATION 
20126 OOD2 11121 DATAI 
2 OOAS OOC8 2222 DATA2 
STORAGE ALLOCATION 
R 41 1926 (HEX) WOS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 
SOCOM O47A 
SDAI 0437 
SOWRT O4AE 
SUBSC 06A6 
SOFIO 0483 
SYSTEM SUBROUTINES 
1LSO04 00C4 
TLSO2 0083 
035A (HEX) IS THE EXECUTION ADOR 
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7. CALCULATING ISAM FILE PARAMETERS 


This program is referred to in the section "Calcu- 
lating ISAM File Size" in Programming Tips and 
Techniques. 

The Console printer output and source listing for 
a program that calculates ISAM file size is shown 
below. The user is requested to enter the first four 
values. The input fields are five positions. Enter 
right-justified decimal numbers. Leading zeros are 
required. Press EOF on the keyboard after each 
entry. This program does no error checking. 

User-entries are required for the following 
printouts. 


ISAM FILE LOAD CALCULATIONS 


INDEX ENTRY LENGTH IN WORDS = 
RECORD LENGTH !N WORDS = 

NUMBER OF RECORDS TO BE LOADED = 
NUMBER OF OVERFLOW SECTORS = 


After the number of overflow sectors is entered 
the program calculates the file size. 


Sample Output 


ISAM FILE LOAD CALCULATIONS 


INDEX ENTRY LENGTH IN WORDS = 00050 
RECORD LENGTH IN WORDS = 00100 

NUMBER OF RECORDS TO BE LOADED = 91000 
NUMBER OF OVERFLOW SECTORS = 909080 
NUMBER OF INDEXES PER SECTOR = 99096 
NUMBER OF RECORDS PER SECTOR = 00003 
NUMBER OF PRIME DATA CYLINDERS = 00042 
NUMBER OF PRIME DATA SECTORS = 90334 
NUMBER OF INDEX SECTORS = 00007 

TOTAL NUMBER OF SECTORS = 00422 
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Program Listing 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0008 
000A 
000B 
000Cc 
000D 
OO0E 
OO0F 
0010 
0011 
0013 
0015 
0016 
0017 
0018 
0019 
001A 
001B 
001c 
0030 
0031 
0041 
0042 
004F 
0050 
0061 
0062 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
007A 
007B 
007D 
OO7E 
OO7F 
0080 
0081 
0086 
0087 
008Cc 
008D 
008E 
O08F 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 

0098 

0099 

009A 
009B 
009gCc 
009D 
009E 
009F 

OO0A0 

OOA1L 
00A2 
00A3 
00A4 

QOAS 
OOA6 
00A7 
00A8 
0O0A9 
OOAA 
OO0AB 
ooACc 
OOAD 
OO0AE 
00BO 
OOBL 
00B2 


20 
9 
1 
20 
0 
0 
00 
Ol 
0 
20 


oO 


[o) 


OQ 


POODTORNODODOONKFON 
i 


Oo 


oooooooocooo0occ~oceoooo0oo0oo0coCceoococ ceo oOoOCOCCOOaoeo 
oO 


io) 


23A17170 START 
2000 

001B 

23A17170 WAIT4 
0000 

70FD 

65000004 

c5000016 IN 
D002 

23A17170 

2000 

0000 MESS 
23A17170 WAIT1 
0000 

70FD 

66000005 

6E000080 

705B 

1000 BTABL 
0061 

004F 

0041 

0030 

0014 HEAD 
0028 

0010 MESS1 
0020 

000D MESS2 
OO1A 

0011 MESS3 
0022 

OOOF MESS4 
OO1E 

23A17170 CONV 
1000 

0080 

23A17170 WAIT 
0000 

70FD 

COOE 

D007 

04002255 

0080 

D500008C 

71FF 

7089 

7011 

0005 Io 
0005 NO 


. 80A0 ouT1 


0005 OUT 
1000 VTAB1L 
0000 OVRSC 
0000 RECRD 
0000 LENGR 
0000 LENGI 
C022 CAL 
1890 

A8FC 

D027 

COF9 

801B 

DO1D 

CO1B 

1890 

A8lA 

DOF 

COF1 

801D 

9012 

1890 

A81lA 

D017 

8010 

1803 

DO15 

8016 

900A 

1890 

A813 

DOOE 

800E 

80E1 

8004 

DOO09 

65000006 

7013 

0001 ONE 
0002 TWO 


SRT 


STO 


LD 


SRT 


STO 


SRA 


STO 


SRT 


STO 


STO 
LDX 


Dc 
DC 


Ll 


L2 
L2 


Ll 


TYPEO 
/2000 TYPE HEADING LINE 
HEAD 
TYPEO 
/0000 WAIT FOR CONSOLE 
WAIT4 
4 SET COUNT 
BTAB1 LOAD ADDR OF MESSAGE 
MESS STORE FOR SUBROUTINE 
TYPEO 
/2000 TYPE MESSAGE 
ak 
TYPEO 
/0000 WAIT FOR CONSOLE 
WAITL 
S) SET CHARACTER 
Io COUNT FOR TYPEO 
CONV 
TABLE OF ADDRESSES 
MESS4 FOR MESSAGES 
MESS3 FOR INPUT 
MESS2 
MESS1 
20 
"R'1LOSISAM FILE LOAD CALCULATIONS'R'E 
16 
‘2RINDEX ENTRY LENGTH IN WORDS = 'E 
13 


"RRECORD LENGTH IN WORDS = 'E 

17 

"RNUMBER OF RECORDS TO BE LOADED = 'E 
15 

"RNUMBER OF OVERFLOW SECTORS = 'E 
TYPEO 


/1000 READ IN VALUE 

Io 

TYPEO 

/0000 WAIT ON KEYBOARD 

WAIT 

oUuTL MOVE PLUS SIGN TO 

I0 TO AREA FOR DCBIN 

DCBIN CONVERT FROM IBM CARD CODE 
Io TO BINARY VALUE IN ACC 
VTABL STORE IN VALUE TABLE 

-1 DECREMENT COUNT 

IN IF COUNT IS NON-ZERO BRANCH 
CAL 

5 INPUT AREA FOR KEYBOARD 

5 

/80A0 CONVERSION AREA 

5 


TABLE OF INPUT VALUES 


2 =k NO. OF OVERFLOW SECTORS 

x7 * NO. OF RECORDS 

*o* RECORD LENGTH 

*— OK INDEX ENTRY LENGTH 

SCTLG DIVIDE SECTOR LENGTH BY 

16 INDEX ENTRY LENGTH TO 
LENGI CALCULATE THE NUMBER OF 
IEPS INDEX ENTRIES PER SECTOR 
LENGR CREATE DIVISOR BY ADDING 
TWO TWO TO THE RECORD SIZE AND 
WORK STORING IN HOLD AREA 
SCTLG DIVIDE RECORD LENGTH+2 

16 INTO THE SECTOR LENGTH TO 
WORK CALCULATE THE NUMBER OF 
RCDPS RECORDS PER SECTOR 

RECRD DIVIDE THE TOTAL NUMBER OF 
RCDPS RECORDS PLUS NO OF REC. 
ONE PER SECTOR MINUS ONE 

16 BY THE NUMBER OF 

RCDPS RECORDS PER SECTOR TO FIND 
NOPDS NO OF PRIME DATA SECTORS 
SEVEN ADD CONSTANT OF SEVEN 

3 DIVIDE BY 8 TO DETERMINE 
NOPDC NO OF PRIME DATA CYLINDERS 
IEPS ADD INDEX ENTRIES/SECTOR 
ONE MINUS ONE 

16 DIVIDE BY NO OF INDEX 

IEPS ENTRIES/SECTOR TO FIND NO 
NOISC OF INDEX SECTORS 

NOPDS ADD NO OF INDEX SECTORS+ 
OVRSC NO OF PRIME DATA SECTORS+ 
ONE NO OF OVERFLOW SECTORS + 
TOTSC 1 FOR LABEL 

6 SET COUNT 

ROUT 

1 CONSTANT OF ONE 

2 CONSTANT OF TWO 
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00B3 
00B4 
00BS 
00B6 
00B7 
00B8 
00B9 
OOBA 
00BB 
00BC 
OOBD 
OOBE 
OOBF 
00Cc0 
00cl 
00C2 
00C3 
00c4 
00C6 
00c8 
00CA 
00CB 
0occ 
00cD 
0OCE 
OOCF 
00D0 
00D1 
00D3 
00D5 
00D6 
00D7 
00D8 
00D9 
OODA 
OODB 
ooDCc 
00DD 
OODE 
OODF 
00E0O 
OOE1 
00E2 
00E3 
O0EF4 
OOE5 
0O0E6 
00E7 
OOF5 
OOF8 
OOF9 
0107 
010A 
010B 
O11B 
O11E 
O1l1F 
0130 
0133 
0134 
0144 
0147 
0148 
0158 
015C 
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SCOPONEHENOOCORPFPEFEFERPOODDOOOCCOCOOSO 
So OFFF 


NOOW 
f=) ro 


oO 


OrYMRrFPRFRFRFrRFODOOCOOONCO 


0007 
0140 
0000 
1000 
0000 
0000 
0000 
0000 
0000 
0000 
1000 
OOFS 
0107 
011B 
0130 
0144 
0158 
C50000BD 
D40000CF 
C50000B6 
02255103 
0086 
292570D6 
1100 
0087 
0000 
0005 
085930D7 
C50000DF 
D002 
23A17170 
2000 
0000 
23A17170 
0000 
7OFD 
71FF 
70E6 
6038 
1000 
00E6 
0OF8 
010A 
O11E 
0133 
0147 
0011 
Oo1c 
0006 
0011 
0olc 
0006 
0013 
0021 
0005 
0014 
0022 
0006 
0013 
0021 
0005 
0013 
0021 
0005 
0000 


SEVEN DC 
SCTLG DC 
WORK DC 
VTAB2 NOP 
ToTsSc DC 
NOISC DC 
NOPDS DC 
NOPDC DC 
RCDPS DC 
IEPS DC 


ROUT LD 


ADDR DC 


STO 
LIBF 
Dc 
MESSP DC 
WAIT3 LIBF 
DC 
B 
CHECK MDX 
B 
EXIT 
BTAB2 NOP 
DC 
DC 
DC 
DC 
pe 
DC 
MS5 pc 
DMES 
MS5P DMES 
MS6 pc 
DMES 
MS6P DMES 
MS7 bc 
DMES 
MS7P DMES 
MS8 be 
DMES 
MS8P DMES 
MS9 Dc 
DMES 
MS9P DMES 
MS10 DC 
DMES 
MS10P DMES 
END 


LL 


Ll 


Ll 


MS5P 
MS6P 
MS7P 
MS8P 
MS9P 
MS1OP 
MTAB 
ADDR 
VTAB2 
BINDC 
oUT1 
ZIPCO 
/1100 
OUT 
em 

5 
HOLCP 
BTAB2 
MESSP 
TYPEO 
/2000 
kk 
TYPEO 
/0000 
WAIT3 
-1 
ROUT 


MS5 
MS6 
MS7 
MS8 
MS9 
MS10 
17 


‘RTOTAL NUMBER OF SECTORS 


'E 
17 


‘RNUMBER OF INDEX SECTORS 


'E 
19 


CONSTANT OF SEVEN 

NO WORDS PER SECTOR 
TEMPORARY HOLD AREA 

TABLE OF OUTPUT VALUES 
TOTAL NO OF SECTORS 

NO OF INDEX SECTORS 

TOTAL NO OF PRIME DATA SCTR 
NO OF PRIME DATA CYLINDERS 
NO OF RECORDS PER SECTOR 
NO OF INDEX ENTRIES/SECTOR 
MESSAGE TABLE CONTAINS 
ADDRESS IN THE MESSAGES 
WHERE THE VALUES ARE TO 

BE PLUGGED 


MOVE ADDR OF CORRECT 

MSG TO CONVERT ROUTINE 
LOAD VALUE TO CONVERT 
CONVERT FROM BINARY TO 
IBM CARD CODE 

CONVERT FROM IBM CARD CODE 
TO CONSOLE CODE AND 

PLACE VALUE IN 

MESSAGE 


LOAD ADDR OF MESSAGE 
STORE ADDR FOR SUBROUTINE 


TYPE OUTPUT MESSAGE 


WAIT FOR CONSOLE 


DECREMENT COUNT 
IF COUNT NON-ZERO BRANCH 


TABLE OF ADDRESSES 
FOR OUTPUT MESSAGES 


‘RNUMBER OF PRIME DATA SECTORS = ' 


'E 
20 


"RNUMBER OF PRIME DATA CYLINDERS = ' 


'E 
19 


'RNUMBER OF RECORDS PER SECTOR 


'E 
19 


‘RNUMBER OF INDEXES PER SECTOR 


'E 
START 


APPENDIX K. BASIC DIFFERENCES BETWEEN 1130 DISK MONITOR SYSTEM, VERSIONS 1 AND 2 


Many of the differences between Monitor 1 and Mon- 
itor 2 are listed below. 


® Lowest allowable origin with: 


Version 1 Version 2 

Dec. Hex. Dec. Hex. 
DISKZ 450 /01C2 510 /01FE 
DISKO 610 /0262 690 /02B2 
DISK1 880 /0370 690 /02B2 
DISKN 1080 /0438 960 /03C0 


NOTE: All version 2 disk subroutines provide mul- 
tiple disk support and accommodate word counts ex- 
ceeding 320. There is no DISKO subroutine in ver- 
sion 2; a LIBF to DISKO is interpreted as a LIBF to 
DISK1. 


® Version 2 does not allow an initial ORG to an odd 
location in mainlines that require DISKZ. An 
ORG to an even location followed by a BSS or BES 
of an odd number of words equivalent to an ORG 
to an odd location. 


© Version 2 may require more core than Version 1, 
especially FORTRAN core loads. 


© Defective cylinders are taken into account in the 
Version 2 incremental seek and write immediate 
functions. In other words, it is not possible to 
seek to or write immediate on a defective cylin- 
der. 


® The object code produced by the FORTRAN com- 
piler is slightly longer in Version 2 than Ver- 
sion 1. 


® The calling sequence for DISKZ in Version 2 is 
different from Version 1. 


® The LIST DECK, LIST DECK E, and PUNCH 
SYMBOL TABLE Assembler Options are not 
allowed with 1134 input. 


© ILS02 and ILS04 are part of the Resident Moni- 
tor. (The user may write his own and store them 
in the User Area for use with user programs. ) 


© Some reprogramming is necessary for cases in 
which INT REQ key has some special meaning. 
Word $IREQ may still be used to point to a cus-_ 
tomer-written subroutine for servicing INT REQ, 


but the return from this subroutine must be com- 
patible with the coding in ILS02 (see coding at 
$1200 Appendix H). 


The entire Resident Monitor, with the exception 
of $LINK, $EXIT, $IOCT, $PRET, and $IREQ, 
has been relocated. Certain parameters that 
were formerly in COMMA in Version 1 are in 
DCOM in Version 2. 


The Core Image header for Disk Core Image for- 
mat (DCI) has been revised and relocated. 


The *FILE Assembler Control Record has been 
replaced by the pseudo-operation FILE. * FILE 
(not to be confused with the Supervisor Control 

Record * FILES) is not recognized in Version 2, 


On a DUP DUMP using the 1442-6 or -7, blank 
cards following the punched cards are not select- 
ed to stacker 2. 


Version 2 does not reset the NON-XEQ switch 
when a //ASM record is processed. 


Version 2 requires that all cartridges have a 
4-~character ID. 


In Version 2, a displacement in the operand 
field of a WAIT instruction is ignored, and does 
not remain in the generated opcode. 


There are certain diagnostics in Version 2 that 
are not in Version 1. Thus, some conditions 
are detected as errors in Version 2 that are not 
in Version 1. 


The Version 2 System Loader does not bypass 
the loading of ISSs for devices not defined on the 
REQ records. Such subroutines may, however, 
be deleted if desirable. 


Disk organization is different in the two versions. 


Version 2 requires 14 sectors more disk storage 
than Version 1, i.e., the address of Working 
Storage in Version 2 is 14 greater than in Ver- 
sion 1, 


Some FORTRAN programs that can be compiled 
by the DM1 compiler are too large to be com- 
piled by the DM2 compiler. 


The ISS number for disk I/O has been changed 
from 4 (DM1) to 5 (DM2). 
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I-Field Type 


This field type describes FORTRAN integer conver- 
sion; input is an integer field. The specification is 


m-Iw. t(P) 


where m_ is the column of the RPG record in 

which the converted field begins (1 

through 640), 

identifies the field type, 

wis the field length og the converted 
field (maximum of 14), 

t is the number of decimal positions 
reserved in the RPG field (maximum of 
9), 

(P) is optional and is present only if the 
RPG field is to be packed. 


— 


Example 1: The integer field BA7E (14974 decimal) 
is converted using the field specification 
15-18. 2 to the following RPG field. 


Record 
Word: 8 9 10 11 


Content: FOF! F4F9 F7F4 FOFO 


Example 2:(truncation): The integer field of Exa- 
mple 1 is converted using the field specifi- 
cation 15-I6. 2 to the following RPG field. 


Record 
Word: 8 9 10 
Content: F4F9 F7F4 FOFO 


Example 3 (packed format): The integer field of 
Example 1 is converted using the field spe- 
cification 15-18. 2(P) to the following RPG 
field. The number is converted as in Exa- 
mple 1. The zone portions of each chara- 
cter are then removed and the digit por- 
tions are packed two per byte. The sign 
is added as a trailing hexadecimal digit (F= 
positive, D=negative). 


Record 
Word: 8 9 10 
Content: 0014 9740 OF40 


Note: Since field length does not account for sign, 
incorrect alignment exists if packed mode is speci- 
fied and field length is an even number. In order to 
align the data correctly, a leading zero is added to 
the field. This is true in all field types which accept 
packed mode conversion. 


Example 4: The integer field /C582 (-14974 deci- 


® APPENDIX L. 180 


APPENDIX L: FIELD TYPE EXAMPLES 


mal) is converted using the field specifica- 
tion 15-I8. 2 to the following RPG field. 


Record 

Word: 8 9 10 {1 
Content: FOFL F4F9 F7F4 FODO 
J-Field Type 


This field type describes two-word integer conver- 
sion, input is atwo-word integer. The specification 
is 


m -Jw. t(P) 


where m_ is the column of the RPG record in 

which the converted field begins (1 
through 640), 

J identifies the field type, 

w is the field length of the converted field 
(maximum of 14), 

t is the number of decimal positions 
reserved in the RPG field (maximum of 
9), 

(P) is optional and is present only if the 
RPG field is to be packed. 


Example: Thetwo-word integer field /7FFF /FFFF 
is converted using the field specification 
7-313, 1(P) to the following RPG field. 


Record 

Word: 4 5 6 7 
Contnet: 0021 4748 3647 OF40 
R-Field Type 


This field type describes FORTRAN real-variable 
conversion. The specification is 


m ~Rw. t(P) 


where m_ is the column of the RPG record in 

which the converted field begins (1 
through 640), 

R__ identifies the field type, 

wis the field length of the converted field 
(maximum of 14), 

t is the number of decimal positions re- 
served in the RPG field (maximum of 9), 

(P) is optional and is present only if the 
RPG field is to be packed. 


Example 1: The standard precision real field /BC00 
/0080 (-0. 53125 decimal) is converted using 


the field specification 25-R7. 5(P) to the 
following RPG field. 


Record 
Word: 13 14 
Content: 0053 125D 


Example 2: The real field of Example 1 is converted 
using the field specification 25-R7.5 to the 
following RPG field. 


Record 
Words 13 14 15 16 
Content: FOFO F5F3 F1 F2 D540 


Example 3; The standard precision real field /7A12 
/0097 (eight million decimal) is converted 
using the field specification 39-R7.0(P) to 
the following RPG field. 


Record 
Word: 20 21 
Content: 8000 OOOF 


Example 4: If the field specification in Example 3 
were 39-R7, 2(P), then the resulting RPG 
field would be set to nines since the input 
field is too large to yield any signigicant 
digits in the RPG field. 


Record 
Words: 20 21 
Content: 9999 999F 


If column 33 of the File Description card contained 
a W, a warning message would be printed when the 
above conversion took place. 


Example 5: The extended precision real field /0047 
/6250 /0000 (10-12 decimal) is converted 
using the field specification 17-R9.9 to the 
following RPG field. 


Record 
Words 9 10 il 12 13 
Content: FOFO FOFO FOFO FOFO F040 


The RPG field is set to zeroes since the input field 
is too small to yield any significant digits in the RPG 
field, A number whose first signigicant digit is 
more than nine decimal places to the right of the 
decimal point cannot be expressed in RPG. If 
column 33 of the File Description card contained a 
W, a warning message would be printed when above 
conversion took place. 


B-Field Type 


This field type describes FORTRAN A-conversion 
for integer data and CSP Al and A2 conversion, 
The specification is 


m-Bw.n 


where m_ is the column of the RPG record in 


which the converted field begins (1 
through 640), 

B_ identifies the field type, 

wis the number of characters in the field 
(maximum of 255), 

n is the number of characters in each 
unit of the input field (n=1 or 2). 


Example: The CSP field POSITIVE appears ona 
disk record in A2 format as follows. 


Record 
Words n n+t n+2 n+3 
Content: E5C5 E3C9 E2C9 D7D6 


VE TI SI PO 


This field is converted using the field specification 
21-B8. 2 to the following RPG field. 


Record 

Words: 11 12 13 14 

Content: D7D6 E2C9 E3C9 E5C5 
PO SI TI VE 

C-Field Type 


This field type describes FORTRAN A-conversion 
for real data. The specification is 


m-Cw.n 


where m_ is the column of the RPG record in 
which the converted field begins (1 
through 640), 

C identifies the field type, 

w is the number of characters in the 
field (maximum of 255), 

n is the number of characters in each 
unit (2 or 3 words) of the input field, 
For standard precision, n may range 
from 1 through 4; for extended preci- 
sion, from 1 through 6. 


Example: The FORTRAN field WASHINGTON, 
D.C. appears on a disk record in A4 format, 
extended precision, beginning at word 221 


as follows. 
Record 
Word: 210 211 212 213 214 215 
Content: 4BC3 4B40 4040 D6D5 6BC4 4040 
«¢ : ON ,;D 
Record 
Words: 216 217 218 219 220 221 
Content: C9D5 C7E3 4040 E6C1 E2C8 4040 
IN GT WA SH 


This field is converted using the field specification 
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35-C15. 4 to the following RPG field. 


Record 
Word: 18 19 20 21 22 23 
Content; E6C1 E2C8 C9D5 C7E3 D6D5 6BC4 
WA SH IN GT ON ;D 
Record 
Word: 24 25 
Content: 4BC3 4B40 
sc 
D-Field Type 


This field type describes CSP Dl conversion, The 
specification is 


m-D1,. j=1y.k(P) 


is the column of the RPG record in 

which the converted field begins (1 

through 640) 

D identifies the field type, 

1,1 is the length of the CSP field (maximum 
of 255), 

j is the number of decimal positions in 
the CSP field, 

ly is the length of the RPG field (maxi- 
mum of 14), 

k is the number of decimal positions in 
the RPG field (maximum of 9), 

(P) is optional and is present only if the 

RPG field is to be packed. 


where m 


Example: The CSP field +00946. 88 appears ona 
disk record beginning at word 78 in D1 for- 
mat as follows: 


Record 
Word: 72 73 74 75 76 77 78 
Content: 0008 0008 0006 0004 0009 0000 0000 


This field is converted using the field specification 
25~D7. 2=6, 3 to the following RPG field. 


Record 

Word: 13 14 15 
Content: FOF4 F6F8 F8FO 
E-Field Type 


This field type describes CSP D4 conversion. The 
specification is 


m-El,. jl,.k(P) 


is the column of the RPG record in 
which the converted field begins (1 
through 640), . 

E__ identifies the field type, 

1, is the length of the CSP field (maximum 
of 255), 


where m 
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jis the number of decimal positions in 
the CSP field, 

1, is the length of the RPG field (maximum 
of 14), 

k is the number of decimal positions in 
the RPG field (maximum of 9), 

(P) is optional and is present only if the 
RPG field is to be packed. 


Example: The CSP field - 00946. 88 appears ona 
disk record beginning at word 103 in D4 for- 
mat as follows. 


Record 
Words 101 102 103 
Contents: FFF7 68FF 0094 


This field is converted using the field specification 
25-E7, 2=7, 2(P) to the following RPG field, 


Record 
Words: 13 14 
Content; 0094 688D 


F-Field Type 


This field type describes CSP A3 conversion. It 
requires a 40 character translation table. The 
specification is 

m-Fw 


is the column of the RPG record in 

which the converted field begins (1 

through 640), 

F identifies the field type, 

wis the number of characters in the field 
(not to exceed input record size in cha- 
racters). 

Example: Suppose that a 40 character translation 
table with W as the 23rd position relative to 
the last position of the A3 table (card column 
40) H as the eight relative position, and Y as 
the 25th relative position is used to form 
the CSP field WHY in A3 format, This field 
is represented by the integer /1419 on a disk 
record, This integer is derived using the 
following formula, 

1=1600 (Ny-20)+40(No) +N, 


where m 


where N,, N 9 and N, represent the positions in the 


1’ 
table of the Ist, 2nd and 3rd characters respectively. 
The above field is converted using the field speci- 


fication 21-F4 to the following RPG field. 


Record 

Words it 12 

Content: E6C8 E840 
WH Y 


X-Field Type 


This field type allows fields on the input record to 
be bypassed. The specification is 


Xw 


where xX __ identifies the field type, 
wis the number of words to be bypassed 
(not to exceed input record size). 
Example: The field specification used to bypass 
an array of 10 real numbers when standard 
precision has been specified (each real nu- 
mber is 2 words in length) is X20. 


Composite Example: FORTRAN file FORFL con- 
taining 1,000 records, each record 10 words 
long, with standard precision and one word 
integers specified, is to be converted to the 
RPG file RPGFL containing records 40 cha- 
racters in length. 


One such FORTRAN record appears as follows. 


Words 1 2 3 4 5 6 7 8 9 10 
Contenn 3A7E D64B 40D5 D540 D4C1 BCOO 0080 03C8 C000 0083 


If the File Description card, beginning in column 1, 
contains 


Column 1 7. 13 19 23 £27 29 72 
FORFL RPGFL O1000 O10 040 S 1 D 


and the Field Specification card, beginning in column 
1, contains 


Column: 1 72 
1-R3. 0, 5-14,1,12-R7. 5, 21-B8. 2, 30-18. 2 S 


and a / * card follows the control cards, the record 
described above will be converted and stored on disk 
as follows: 


Words 1 2 3 4 5 6 7 68 9 10 
Contents FOFO D440 FOF6 F8FO 4040 40F0 FOFS F3F1 F2D5 4040 


Words 11 12 13 14 15 16 17 18 19 20 
Content; D4Ct D540 40D5 D64B 40F0 Fi F4 F9F7 F4F0 F040 4040 
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Absolute Address. An address that either should not 
be incremented or has already been incremented by 
a relocation factor. 


Absolute Program. A program which, although stored 
in disk system format, has been written in such a way 
that it can be executed from only one core location. 


Assembler Core Load. A core load that was built from 
a mainline written in Assembler language. 


CALL Subprogram. A subprogram that must be refer- 
enced with a CALL statement. The type codes for sub- 
routines in this category are 4 and 6. 


CALL TV. The transfer vector through which CALL 
subroutines are entered during execution. See the 
section on the Core Load Builder for a description of 
this transfer vector. 


Card Core Image Format (abbr. CDC). The format 


in which a program stored in disk core image format 
is dumped to cards. 


Card Data Format (abbr. CDD). The format in which 


a data file is dumped to cards. 


Card System Format (abbr. CDS). The format in which 
absolute and relocatable programs are punched into 
cards. In this format, columns 73-80 are used only 

to contain the card ID and sequence number. 


CDC. (See Card Core Image Format. ) 
CDD. (See Card Data Format.) 
CDS. (See Card System Format.) 


Checksum. The two's complement of the logical sum 
of the record count (the position of the record within 
the program) and the data word(s). The logical sum 
is obtained by summing the data word(s) and the 
record number arithmetically, with the addition of 
one each time a carry occurs out of the high-order 
position of the Accumulator. The first record is 
record 1, not record 0. 

This term (record number) should not be confused 
with the sequence number that appears in columns 73-80 
in card formats, 

CIB. (See Core Image Buffer.) 
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Cold Start Card. The card that contains the coding 
necessary for initial program loading (IPL), that is, 
fetching the Cord Start Program. 


Cold Start Program. The disk-resident program that 
initializes the Monitor system by reading the Resident 
Monitor into core from the disk. 


COMMA. (See Core Communications Area.) 


Comment. The text contained on a Monitor control 
record with an asterisk in column 4, an Assembler 
language source record with an asterisk in column 21, 
a FORTRAN source record with a C in column 1, or 
an RPG specification with an asterisk in column 7, 
Control Record. One of the records (card or paper 
tape) that direct the activities of the Monitor system. 
For example, the DUP Monitor control record directs 
the Monitor to initialize DUP, the DUMPLET DUP 
control record directs DUP to initialize the DUMPLET 
program; the EXTENDED PRECISION FORTRAN con- 
trol record directs the Compiler to allot three words 
instead of two for the storage of variables. 


Core Communications Area (abbr. COMMA). The part 


of core which is reserved for work areas and parameters 
that are required by the Monitor programs. In general 
a parameter is found in COMMA if it is required by two 
or more Monitor programs and is required to load a 
program stored in disk core image format. Otherwise 
the parameter is found in DCOM. COMMA is initialized 
by the Supervisor during the processing of a JOB 
record. 

Core Image Buffer (abbr. CIB). The buffer on which 
most of the first 4K of core are saved while a core load 
is being built. It is also used to save any part of COM- 
MON defined below location 4096 during a link-to-link 
transfer of control. See the section on the Core Load 
Builder for a description of the CIB and its use. 


Core Image Header Record. A part of a core image 
program including such parameters as the word count 
of the core load, the ITV, and the setting for index 
register 3, 


Core Image Program. A mainline that has been con- 
verted, along with all of its required subroutines, to 
disk core image format. Included in the core image 
program are any LOCALs and/or SOCALs that are 
required. This term should not be confused with "core 
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load", which refeis to only that part of a core image 
program that is read into core just prior to execution. 


Core Load. A mainline, its required subroutines, and 
its interrupt, CALL, and LIBF transfer vectors. This 
term should not be confused with "core image program". 


CSF Block. A group of not more than 51 data words of 
a program in card system format. In this format, the 
first six data words of every CSF block are indicator 
words. These six words are always present, even 
though all six are not needed. A CSF block is equivalent 
to words 4-54 of the CSF module (Data card) of which 

it is a part. 


CSF Module. A group of words consisting of a data 
header and CSF blocks for a program in card system 
format. A CSF module is equivalent to a Data card 

in card system format. A new CSF module is created 
for every data break. A data break occurs (1) whenever 
there is an ORG, BSS, BES, or DSA statement, (2) when- 
ever a new Data card is required to store the words 
comprising a program, and (3) at the end of the program. 
Data Break. (See DSF Module.) 

Data File. An area in either the User Area or the 
Fixed Area in which data is stored. "Data file’ may 
also refer to the data itself. 


Data Header. The first pair of words in a module for 
a program in disk system format. The first word con- 
tains the loading address of the module; the second the 
total number of words contained in the module. The 
data header for the last module contains the effective 
program length, followed by a word count of zero. 


DCI. (See Disk Core Image Format.) 
DCOM. (See Disk Communications Area.) 
DDF. (See Disk Data Format.) 


DEFINE FILE Table. The table which appears at the 
beginning of every mainline that refers to defined files. 
There is one 7-word entry for each file that has been 
defined. 


Disk Block. One sixteenth of a disk sector, that is, 20 
disk words. The disk block is the smallest distinguish- 
able increment for programs stored in disk system for- 
mat. Thus, the Monitor system permits packing of 
disk system format programs at smaller intervals than 
the hardware would otherwise allow. 
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Disk Communications Area (abbr. DCOM). The disk 


sector that contains the work areas and parameters 
for the Monitor programs. 


Disk Core Image Format (abbr. DCI). The format in 
which core image programs are stored on the disk 
prior to execution. 


Disk Data Format (abbr. DDF). The format in which a 
data file is stored in either the User Area or the Fixed 
Area. 


Disk System Format (abbr. DSF). The format in which 


mainlines and subprograms are stored on the disk as 
separate entities. It is not possible to execute a pro- 
gram in disk system format; it must first be converted 
to disk core image format as a result of either an XEQ 
Monitor control record or a STORECI DUP control 
record. 


Disk System Format Program. A program that is 
stored in disk system format. It is sometimes called 
a DSF program. 


DSF. (See Disk System Format.) 


DSF Block. A group of not more than nine data words 
of a program in disk system format. In this format, 

the first data word of every DSF block is an indicator 
word. Normally every DSF block in a DSF module 
consists of nine data words, including an indicator word; 
but if the DSF module contains a number of data words 
that is not a multiple of nine, then the next-to-last DSF 
block contains less than nine data words. 


DSF Module. A group of words consisting of a data 
header and DSF blocks for a program in disk system 
format. A new DSF module is created for every data 
break. A data break occurs (1) whenever there is an 
ORG, BSS, BES, or DSA statement, (2) whenever a 
new sector is required to store the words comprising 
a program, and (3) at the end of the program. 


Effective Program Length. The terminal address 


appearing in a relocatable program. For example, in 

Assembler language programs, this address is the last 
value taken on by the Location Assignment Counter and 
appears as the address assigned to the END statement. 


Entry Point. Either (1) the symbolic address (name) of 
a place at which a program is entered, (2) the absolute 
core address at which a program is to be entered, or 
(3) the address, relative to the address of the first word 
of the subprogram, at which it is to be entered. 


Execution. The execution of the program specified on 
an XEQ Monitor control record and any subsequent links 
executed via CALL LINK statements. The execution is 
complete when a CALL EXIT is executed. 


Fetching. The process of reading something into core 
storage, usually from disk. 


Fixed Area (abbr. FX). The area on disk in which core 


image programs and data files are stored if it is desired 
that they always occupy the same sectors. No programs 
in disk system format may be stored in this area. No 
packing ever occurs in the Fixed Area. 


FLET. (See LET/FLET.) 


FORTRAN Core Load. A core load that was built from 
a mainline written in the FORTRAN language. 


Function. A subprogram that evaluates a mathematical 
relationship between a number of variables. In FOR- 
TRAN, a FUNCTION is a subprogram that is restricted 
to a single value for the result. This type of subprogram 
is called by direct reference. 


FX. (See Fixed Area.) 


IBM Area. That part of disk storage that is occupied by 
DCOM, the CIB, and the Monitor programs. This area 
is also known as the System Area. 


IBT. (See ILS Branch Table.) 


ILS. (See Interrupt Level Subroutine. ) 


ILS Branch Table (abbr. IBT.) A table consisting of the 


addresses of the interrupt entry points for each ISS used 
for an interrupt level. An IBT is required by the ILS 
for an interrupt level with which more than one device 
is associated. 


In-core Subprogram. A subprogram that remains in 
core storage during the entire execution of the core 
load of which it is a part. ILSs are always in-core 
subprograms, whereas LOCALs and SOCALs never are. 


Indicator Word. The first word of a DSF block indicating 
which of the following data words should be incremented 
(relocated) when relocating a program in disk system 
format. This word also indicates which words are 

LIBF, CALL, and DSA names. Programs in disk sys- 
tem format all contain indicator words. Each pair of 
bits in the indicator word is associated with one of the 
following data words ~- the first pair with the first data 
word following the indicator word, etc. 


Initial Program Load. The action that occurs when the 
PROGRAM LOAD key is pressed. One record is read 
into core, starting at location zero, from the input hard- 
ware device that is physically wired to perform this 
function. The record read, usually a loader, then in- 
structs the system as to the next action to be performed, 
e.g., load more records. 


Interrupt Level Subroutine (abbr. ILS). A subroutine 


that analyzes all interrupts on a given level; that is, 
it determines which device on a given level caused the 
interrupt and branches to a servicing subroutine (ISS) 
for the processing of that interrupt. 


Interrupt Service Subroutine (abbr. ISS). A subroutine 


that 1) manipulates a given I/O device and 2) services 
all interrupts for that devicer after they have been 
detected by an ILS. 


Interrupt Transfer Vector (abbr. ITV). The contents of 
words 8-13, which are the second words of the auto- 
matic BSI instructions which occur with each interrupt. 
In other words, if an interrupt occurs on level zero 

and if core location eight contains 500, an automatic 
BSI to core location 500 occurs. Similarly, interrupts 
on levels 1-5 cause BSIs to the contents of core loca- 
tions 9-13, respectively. 


IOAR Header. The word(s) required by an I/O device 
subroutine (ISS). They must be the first or the first 
and second words of the I/O buffer. 


IPL. (See Initial Program Load.) 
ISS. (See Interrupt Service Subroutine. ) 


ISS Counter, A counter in COMMA (word $IOCT) that is 
incremented by 1 upon the initiation of every I/O opera- 
tion and decremented by 1 upon receipt of an I/O opera- 
tion complete interrupt. 


ITV. (See Interrupt Transfer Vector.) 


Job. A group of tasks (subjobs) that are to be per- 
formed by the Monitor system and which are inter- 
dependent; that is, the successful execution of any 
given subjob (following the first) depends upon the suc- 
cessful execution of at least one of those that precede it. 


LAC. (See Location Assignment Counter.) 
LET/FLET (the Location Equivalence Table for the 
User Area/ the Location Equivalence Table for the 


Fixed Area). The disk~resident table through which 
the disk addresses of programs and data files stored 
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in the User/Fixed Area may be found. Ona system 
cartridge, LET occupies the cylinder preceding the 
User Area. Ifa Fixed Area has been defined, FLET 
occupies the cylinder preceding it; otherwise, there 
is no FLET. 


LIBF Subroutine. A subprogram that must be referenced 
with an LIBF statement. The type codes for subroutines 
in this category are 3 and 5. 


LIBF TV. The transfer vector through which LIBF sub- 
programs are entered at execution time. See the section 
on the Core Load Builder for a description of this trans- 
fer vector. 


Link. A link is a core image program that is read into 
core for execution as a result of the execution of a 
CALL LINK statement. 


Loading Address. The address at whicha mainline, 
subprogram, core load, or DSF module is to begin. 
For mainlines and DSF modules, the loading address 
is either absolute or relative. For subprograms, it is 
always relative, whereas, for core loads, it is always 
absolute. 


Load-On-Call (abbr. LOCAL) Subroutine. A subprogram 
in a core image program that is not an in-core subpro- 
gram. It is read from the disk into a special overlay 
area in core only when it is called during execution. 
LOCALs, which are specified for any given 

execution by the user, are a means of gaining core 
storage at the expense of execution time. The Core 
Load Builder constructs the LOCALs and all linkages 

to and from them. 

Load-Although-Not-Called (abbr. NOCAL) Subprogram. 
A subprogram that is to be included in a core image 
program although it is never referenced in that core 
image program by an LIBF or CALL statement. Debug- 
ging aids such as a trace or a dump fall into this cate- 


gory. 
LOCAL. (See Load-On-Call Subroutine. ) 


Location Assignment Counter. A counter maintained in 
the Assembler for assigning addresses to the instructions 
it assembles. A similar counter is maintained in the 
Core Load Builder for loading purposes. 


Long Instruction. An instruction that occupies two core 
storage locations. 


Low COMMON. Words 896 - 1215 if DISKZ is in core, 
words 1216 - 1535 if DISK] is in core, or words 1536 
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- 1855 is DISKN is in core. This area exists even if 
there is no COMMON. 


Mainline. The program about which a core image pro- 


gram is built. The mainline is normally the program 


in control. It calls subprograms to perform various 
functions. 


Master Cartridge. The cartridge residing on logical 


drive zero. The master cartridge must be a system 


cartridge. 


Modified EBCDIC Code. A six-bit code used internally 
by the Monitor programs. In converting from EBCDIC 

to Modified EBCDIC, the leftmost two-bits are dropped. 
(See Name Code.) 


Monitor. A synonym for the entire 1130 Disk Monitor 
System, Version 2, which is also known as the Monitor 
system or the Disk Monitor. 


Monitor Control Record. (See Control Record.) 


Monitor Program, One of the following parts of the 
Monitor system: Supervisor (SUP), Core Image Loader 
(CIL), Core Load Builder (CLB), Disk Utility Program 
(DUP), Assembler (ASM), FORTRAN Compiler 

(FOR), or RPG Compiler (RPG). 


Name Code. The format in which the names of sub- 
programs, entry points, labels, etc., are stored for 
use in the Monitor programs. The name consists of 
five characters, terminal blanks being added if neces- 
sary to make five characters. Each character is in 
Modified EBCDIC code, and the entire 30-bit repre- 
sentation is right-justified in two 16-bit words. The 
leftmost two bits are used for various purposes by the 
Monitor. 


Naturally Relocatable Program. A program that may 
be executed from any core storage location without 
first being relocated. The only absolute addresses in 
such a program refer to parts of the Resident Monitor, 
which, of course, are fixed. 


NOCAL. (See Load-Although-Not-Called Subprogram. ) 


Non-system Cartridge. A cartridge that does not contain 
the Monitor programs, although it does contain DCOM, 
LET, etc. A non-system cartridge may be used only 

as a Satellite cartridge. 


NOP. An acronym used to denote the instruction, No 


operation. 


Object Program, The output from either the Assembler, 


FORTRAN Compiler, or the RPG Compiler. 


Packing. The process of storing programs in the User 
Area to the nearest disk block, thus reducing the aver- 
age wasted disk space from 160 disk words/program to 
10 disk words/program. 


Padding. Areas in the User/Fixed Area required to 
permit core image programs and data files to start 
on a sector boundary. The length of the padding, 
which is reflected in LET/FLET with a dummy entry, 
is from 1 to 15 disk blocks. 


Principal I/O Device. The device used for stacked job 
input to the Monitor system. The 2501/1442, 1442/1442, 
or 1134/1055 may be assigned as the principal I/O de- 
vice. The Keyboard may be assigned temporarily as 

the principal input device (see // TYP under Monitor 
Control Records). The System Loader considers the 
fastest device defined on the REQ records to be the 
principal I/O device. 


Principal Print Device. The device used by the Monitor 
system for printing system messages. Either the 1403, 
1132, or Console Printer may be assigned as the princi- 
pal print device. The System Loader considers the 
fastest print device defined on the REQ records to be 
the principal print device, 


Program, The highest level in the hierarchy describing 
various types of code. Subprograms and mainlines are 
subsets of this set. 


Program Header Record. The part of a program stored 
in disk system format that precedes the first DSF mod- 
ule. Its contents vary with the type of program with 
which it is associated. It contains the information 
necessary to identify the program, to describe its 
properties, and to convert it from disk system format 
to disk core image format. 


|Quintuples. Five-word tables in COMMA/DCOM that 
contain cartridge-related parameters. There is one 
table for each cartridge on the system. These tables 
are updated during JOB processing or by a user call- 
able subprogram (SYSUP) if cartridges are changed 
during a job, 


Relocatable Program. A program that can be executed 
from any core location. Such a program is stored on 
the disk in disk system format. It is relocated by the 
Core Load Builder. 


Relocation. The process of adding a relocation factor 
to address constants and to those long instructions 


whose second words are not (1) invariant quantities, 

(2) absolute core addresses, or (3) symbols defined as 
absolute core addresses. The relocation factor for any 
program is the absolute core address at which the first 
word of that program is found. 


Relocation Indicator. The second bit in a pair of bits 

in an indicator word. If the data word with which this 
bit is associated is not an LIBF, CALL, or DSA name, 
then it indicates whether or not to relocate the data 
word. If the relocation indicator is set to 1, the word 
is to be relocated. Pairs of relocation indicators indi- 
cate LIBF, CALL, or DSA names. The combinations 
are 1000, 1100, ‘and 1101, respectively. 


Remark. An explanation of the use or function of a 
statement or statements. A remark is a part of a 
statement, whereas a comment is a separate statement. 


Resident Image. The mirror-image of the Resident 
Monitor minus the disk I/O subroutine. It resides on 
disk and is read into core by the Cold Start Program. 


Resident Monitor. The area required in core by the 
Monitor system for its operation. This area is gener- 
ally unavailable to the user for his own use. The Resi- 
dent Monitor consists of COMMA, the Skeleton Super- 
visor, and one of the disk I/O subroutines, nominally 
DISKZ. 


RPG Core Load. A core load that was built from a 
mainline which was generated from an RPG language 
program, 


Satellite Cartridge. A cartridge residing on a drive 
other than logical drive zero. A satellite cartridge 
can be either a system or a non-system cartridge. 


Short Instruction. An instruction that occupies only 
one core storage location. 


Skeleton Supervisor. The part of the Supervisor that 
is always in core and that is, essentially, the logic 
necessary to process CALL DUMP, CALL EXIT, and 
CALL LINK statements. Certain traps are also con- 
sidered to be part of the Skeleton Supervisor. 


SOCAL. (See System Overlay to be Loaded-On-Call. ) 
Subjob. A Monitor operation to be performed during a 
job. Each subjob is initiated by a Monitor control 
record such as ASM or XEQ. It may also be initiated 
by a CALL LINK. 


Subprogram. A synonym used mainly in FORTRAN 
for both FUNCTIONs and SUBROUTINEs. This term 
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is equivalent to subroutine when subroutine is used in 
its broadest sense. 


Subroutine. A subset of the set "program". In 
FORTRAN, a SUBROUTINE is a type of subprogram that 
is not restricted to a single value for the result and that 
is called with a CALL statement, 


Supervisor Control Record Area (abbr. SCRA). The 
cylinder in which the Supervisor control records are 
written. The first two sectors are reserved for LOCAL 
control records, the next two for NOCAL control records 
and the next two for FILES control records. See the 
Supervisor section for the formats of these records. 


System Area. (See IBM Area.) 


System Cartridge. A cartridge that contains the Moni- 
tor programs. A system cartridge may be used as 
either a master or a satellite cartridge. 


System Overlay to be Loaded-On-Call (abbr. SOCAL). 
One of two or three overlays automatically prepared 

by the Core Load Builder under certain conditions when 
a core load is too large to fit into core storage. See the 
section on the Core Load Builder for an explanation. 


System Working Storage. The Working Storage area to 
be used during a job by the Monitor programs, not 
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user programs, The cartridge to be used for System 
Working Storage is defined on the JOB record. System 
Working Storage need not be on the master cartridge. 


Transfer Vector (abbr. TV). A collection of both the 
LIBF TV and the CALL TV. 


TV. (See Transfer Vector. ) 


UA. (See User Area.) 


User Area (abbr. UA). The area on the disk in which 


all programs in disk system format are found. Core 
image programs and data files may also be stored in 
this area. All IBM-supplied programs are found here. 
This area occupies as many sectors as are required 
to store the programs and files residing there. 


User Programs. Mainlines, subprograms, or core 
loads that have been written by the user and stored in 
the User/Fixed Area. 


Working Storage (abbr. WS). The area on disk imme- 


diately following the last sector occupied by the User 
Area. This is the only one of the three major divisions 
of disk storage (IBM Area, User/Fixed Area, Working 
Storage) that does not begin at a cylinder boundary. 


WS. - (See Working Storage. ) 
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Monitor 18 

Supervisor 22 
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DUP 27 
Assembler 38 
FORTRAN 42 
Conversion of a mainline program (core load builder) 47 
COPY 71 
Copy (DCIP) 94, 96 
Copy ID 11 
Copying 64 
CORE card 83 
Core communications area 17 
Core dump program 25 
Core dump programs 
Console printer 93 
Supervisor 25 
1403 Printer 93 
1132 Printer 93 
Core image buffer 14, 19, 48, 71 
Core image buffer, deletion of 71 
Core image header 48, 130 
Core image loader 47, 50 
Core image program dump 136 
Core load builder 47 
| Core load builder errors 122,123,124 
Core load construction 47 
Core load origin, assignment of 48 
Core map 20, 60 
Core Storage available (RJE) 109 
//CPRNT 22 
Cross reference listing (residence monitor) 165 
Cylinder 0 (non-system cartridge) 15 
Cylinder 0 (system cartridge) 12 


Data cards 134 
Data files extending over two cartridges (see Reeling) 62 
DCIP 93 
DCOM 12 
DCOM indicator words 13 
DCOM listing 149 
DCOM update program 78 
Decimal disk addresses 139 
Decreasing program execution time when using SOCALs 54 
Defective cylinder table 11 
| *DEFINE 36 
Define end record (MODIF) 73 
Define fixed area 35 
Define void assembler 36 
Define void FORTRAN 36 
Defined files, use of 62 
*DELETE 35, 62 
Delete core image buffer 71 
Deleting the assembler and/or compiler 36 
//DEND (MODIF) 73 
DISC 69 
Disk cartridge initialization program 93 
Disk communications area 12 
Disk copy program 71 
Disk core image format (DCI) 132,56 
Disk data format (DDF) 132 
Disk dump 94, 96 
Disk formats 131 
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Disk I/O subroutine 18 
Disk maintenance programs 69 


DISKN 18, 20, 38, 49, 50, 53, 54, 79 
Disk organization 11 

Disk-resident supervisor programs 18 

Disk storage unit conversion factors 137 
Disk system format (DSF) 131 

Disk utility program 27, 47 

DISKZ 14, 18, 20, 38, 49, 50, 54, 79, 156 
DISKZ listing 156 

DISK1 18, 20, 38, 49, 50, 53, 54, 79 
Displaying a core location using the console entry switches 8 
DLCIB 71 

Double buffering 57 

DSF program dump 136 

DSLET 70 

*DUMP 29 

Dump (DCIP) 94, 96 

DUMP entry point 17 

Dumping Data Files to Cards 64 

Dump system location equivalence table 70 
*DUMPDATA 30 

*DUMPFLET 31 

DUMPFLET sample 148 

*DUMPLET 30 

DUMPLET sample 147 

DUP 20, 27, 47 

//DUP 20 

DUP control record format 29 

DUP control records 27 

DUP messages and error codes 117, 118, 119 
DUP messages 117 

DUP operations 29 

Duplicate data file names 62 

Duplicate program names 62 

*DWADR 36 

Dynamic dump 25 


EBPRT 58 

//EJECT 21, 57 

End-of-program card 134 

Entering programs from the keyboard monitor system control 8 
EOP card 132 

EQUAT 19, 22, 25, 25.1 
Equivalences 160 

ERASE FIELD 9, 63 

Error message on sector @IDAD 11 
Error messages, MODIF 74 

Error messages (RJE) 105 

Error table listing 111 

EXIT entry point 17 

*EXTENDED PRECISION 44 


FEED check indicator (2501) 68 

Fetch phase ID subroutine 79 

Fetch system subroutine 79 

Fetching a link (core image loader) 50 
Fetching the supervisor (core image loader) 50 
File map 60 

*FILES 14, 23, 24 

Fixed area 15 

Fixed location equivalences table 14, 27, 31, 35, 143 
FLET 14, 27, 31, 35, 145 

FLIPR 50, 79 
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//FOR 20 

Format conversions (DUP) 27 

Format indicator word 13 

Formats 129 

FORTRAN allocation addresses, locating 61 
FORTRAN calling sequence for SYSUP 78 
FORTRAN compiler 42 

FORTRAN control records 42 

FORTRAN core map 60 

FORTRAN DEFINE FILE statement 24, 62 
FORTRAN error messages 115 

FORTRAN file map 60 


| FORTRAN I/O errors 46, 121.1 


FORTRAN 1/0 logical unit designations 42 
FORTRAN I/O record sizes 42 

FORTRAN messages and error codes 114, 116 
FORTRAN sample program 79 

FSLEN 79 

FSYSU 79 

FX 15 


Glossary 179 

*G2250 14, 25 

Graphics 24 

Grouping of mnemonics (assembler language) 58 


Hexadecimal disk address 139 
HOPR indicator (1442) 66 


IBM-~-supplied system loader control cards 83 
IBM system area 12 

ID 70 

IDENT 69 

ILS, special 20 

ILS, standard 58,59 

ILS entry point 59 

ILS header card 132 

ILSO2 listing 152 

ILSO2 subroutine 17, 59 

ILS04 listing 152 

ILSO4 subroutine 17,59 

IMM STOP key 9 

Incorporation of subprograms in a core load 48 
Information transfer (DUP) 27 

Initial load, card system 82 

Initial load, paper tape system 87 
Initialization (DCIP) 94, 95 

Initializing $$$$$files for use with FORTRAN unformatted I/O 61 
Initiating a new page on the principal printer 19 
Input, arranging of 53 

Input for RJE 100, 102 

INT REQ key 9, 18 

Intermediate I/O (assembler) 58 

Interrupt level subroutines 59 

Interrupt request key 9, 18 

Interrupt service subroutines 58 

*IOCS 43 

ISAM File Index 64. 

ISS 58 

ISS header card 131 

ISS/ILS correspondence 59 

ISS names 65 

ISS numbers 58 

ISS subroutine WAITs 125 


//JOB 18 


Keyboard input 46 
Keyboard operation 8, 38, 68 
Keyboard subroutine functions 68 


Last card 66, 68 

LET 14, 27, 30, 145 

LET disk format 145 

LET DUMP format 145 

LET entries 145 

LET sector header 145 

*LEVEL 41 

LIBF TV 49 

Limitations of DISKZ 54 

LINK entry point 17 

*LIST 39 

*LIST ALL 44 

*LIST DECK 39 

*LIST DECK E 39 

List deck format 40 

*LIST SOURCE PROGRAM 43 

*LIST SUBROUTINE NAMES 43 

*LIST SYMBOL TABLE 44 

Load mode control card 82 

Load mode control tape, user-punched 87 
Loading a program from cards or paper tape 8 
*LOCAL 14, 22 

LOCALs 46, 60 

LOCAL calls aLOCAL 20, 56 
LOCAL/SOCAL Flipper 50, 79 
LOCAL/SOCAL overlay 49, 79 

Location equivalence table 14, 27, 30, 145 
Mainline header card 133 

Mainline programs that use all of core 63 
Manual dump of the monitor system 9, 25 
Master cartridge 11 

Maximum number of LIBFs and CALLs in a core load 47 
Messages (RJE) 109 

MODE 82, 88 

MODIF 72 

MODIF error messages 74 

MODIF system reload table restriction 72 
*MON 72 

Monitor control record analyzer 18 
Monitor control record analyzer errors 121.1 
Monitor control records 18 

Monitor Mode (RJE) 104 

Monitor programs 17 

Monitor system disk area 13 

Monitor system error messages 113 
Moaitor system ISS names 65 

Monitor system library 65 

Monitor system operational messages 113 
Monitor system sample programs 169 


*NAME 44 
*NOCAL 14, 23 
Non-system cartridge 15 


One-~pass mode (assembler) 37 
*ONE WORD INTEGERS 44 
Operating notes (FORTRAN) 45 
Operator procedures, 1442 errors 66 


Operator procedures, 2501 errors 68 
Optional tracing (FORTRAN) 45 
ORIGIN 42, 43, 45, 114 

Origin of mainline 38 

*OVERFLOW SECTORS 44 
Overprinting 54 


Page heading 12, 44 

Paper tape formats 133 

Paper tape IDs 87 

Paper tape not-ready WAITs (PTUTL) 76 
Paper tape operation (assembler) 88 
Paper tape reproducing program 99 
Paper tape subroutines (error procedures) 68 
Paper tape system cold start 91 

Paper tape system initial load 87 

Paper tape utility (PTUTL) 75, 97 
Patch control records (MODIF) 72 
//PAUS 21 

Phase identification card 83 

PHID card 83 

Postoperative error traps 17 

Pre-load, card system 81 

Preoperative error trap 17, 38 

Print cartridge ID 69 

Print data format (PRD) 133 

Print format 133 

*PRINT SYMBOL TABLE 40 

Printer core dump 93 

Processing defined files (core load builder) 47 
Processing the contents of the SCRA 47 
Program header record 129 

Program loading 8 

Program phase sector break cards 85, 134 
PROGRAM STOP key 9, 18 
PROGRAM STOP key trap 18 

Program subtypes 132 

Program types 132 

Programming tips and techniques 53 
PTUTL 75, 99 

PTUTL console entry switch options 77 
PTUTL operating procedures 75 
PUNCH indicator (1442) 67 

PUNCH STA indicator (1442) 66 
*PUNCH SYMBOL TABLE 46 

Punch symbol table option 37 


Quintuple (DCOM table) 13, 19 


RDREC 79 
READ CHECK indicator (2501) 68 
Read *ID record 79 
READ REG indicator (1442) 67 
READ STA indicator(1442) 67 _ 
Reading the console entry switches under user program control 8 
Reading a core map 60 
Reading a file map 60 
Readying the 1130 3 
Readying the 1130 system I/O 
console printer 3 
single disk storage 3 
1442-6, -7 3 
1442-5 4 
2501 4 
1134 4 


Index 189 


1055 4 
“4132 5 
1231 7 
1403 6 
1627 7 
2310 6 


Receive Mode (RJE) 102 

Reconfiguring a system cartridge 85, 89 

Reeling 62 

Re-entry (keyboard) 9, 68 

Reload table 12, 72 

Relocatable program origin 38 

Removing subroutines 65 

Reproducing program, paper tape 97 

REQ 82 

Resident image 12, 148 

Resident image listing 150 

Resident monitor 17 

Resident monitor listing 149, 150 

Restrictions on DUP operations in temporary mode 13 
Restrictions on keyboard/paper tape >assumbler input 38 
Restrictions on subroutines in SOCAIs 54 

Remote Job Entry 100 

RPG Compiler Control 46.1 

RPG Control Card 46,1 

RPG Object Program Considerations 46.3 


RPG Program Operation 46,1 
Rules for LOCAL and NOCAL usage 23 


Sample programs 167 

Satellite cartridge 11, 15 

Satellite disk initialization program 69 
*SAVE SYMBOL TABLE 41 

SCON card 83, 88 

SCRA 14, 18, 20, 47 

Sector break cards 85, 132 
Sector @ IDAD (0) of any cartridge 11 
Single disk storage ready procedure 3 
Skeleton supervisor 17 

SLET 13, 167 

SLET listing 167 

SOCAL options 55 

SOCAIs 48, 49, 54, 60 

Stand-alone paper tape utility program (PTUTL) 97 
Stand-alone utility programs 93 

*STORE 30, 62 

*STORECI 33 

*STOREDATA 32 

*STOREDATACI 33 

*STOREMOD 35 

*SUB 73 

Subprogram header card 133 

Summary of DUP data transfer operations 28 
Supervisor 17, 47 

Supervisor control record area 14, 18, 20 
Supervisor control records 22 

Supervisor core dump program 25,1 
Supervisor messages and error codes 121.2 
Symbol table overflow 37, 41 

Symbol table size 37 

System area 12 

System cartridge 11, 12 

System configuration cards 82 

System configuration tape, user-punched 87 
System control record program errors 122 
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System device subroutine area 13 
System familiarization 3 
System generation 81 ( 
System ISS names 65 
System library 65 
System library listing 139 
System library mainline programs 69 
System library maintenance 73 
System library maintenance control record (MODIF) 73 
System library subroutines 65 
System library utility subroutines 78 
System loader control cards 
User-supplied 82 
IBM-supplied 83 
System loader control records 87 
System loader errors and error codes 120, 121 
System loader messages 119 
System location equivalence table 12 
System location equivalence table listing 167 
System maintenance program 72 
System overlays (SOCAILs) 48, 49 
System program maintenance 72 
System reload 81 
System reload, card system 84 
System reload, paper tape system 89 
*SYSTEM SYMBOL TABLE 41 
System working storage 19 
SYSUP 13, 57, 78, 122 
SYSUP errors 120 


Table of equivalences 149 
Temporary mode 56 

Temporary mode indicator 19 
Temporary mode indicator word 13 
//TEND 21 

TERM card 83, 88 

Terminal dump 25 

TIPS FOR USE OF EQUAT RECORD 63.1 
TRANS indicator (1442) 66 
Transfer vector 49 

*TRANSFER TRACE 45 

Transmit Mode (RJE) 102 

*TWO PASS MODE 39 

Two-pass mode (assembler) 37, 39 
//TYP 8, 21 

Type 81 card 83 


UA 14 

Unformatted disk 1/O record size 42 
Unformatted I/O disk buffer area 19, 42 
Use of defined files 62 

Use of SOCAILs 54 

User area 14 

User exit (RJE) 110 


User-punched load mode control tape 87 
User-punched system configuration tape 87 
User-punched system loader control cards 82 
Using the disk I/O subroutines 53 

Using the 1130 with the monitor system 8 
Utility programs, stand-alone 93 

Utility subroutines, system library 78 


Working storage area 15, 19, 48 

Working storage indicator word 13 

Write sector addresses in working storage 71 
Writing addresses in working storage 36 
Writing ISS 58 

Writing ILS 58 

WS 15, 19, 48 


//XEQ 20 
ZIPCO 58 


1055 Paper tape punch ready procedure 4 
| 1130 90, 90.1 

1130 system familiarization 3 

1132 printer core dump 93 

1132 printer ready procedure 5 

1134 paper tape ready procedure 4 


1231 optical mark page reader ready procedure / 
1403 conversion subroutines 58 

1403 printer core dump 93 

1403 printer ready procedure 6 

1442 card punch ready procedure 4 

1442 card reader ready procedure 3 

1442 card subroutine errors 66 

1442 errors and operator procedures 66 

1627 plotter ready procedures 7 

2310 disk storage ready procedure 6 

2501 card reader, achieving maximum speed 57 
2501 card reader ready procedure 4 

2501 card subroutine errors 67 

00b records read during execution of a FORTRAN program 42 
//*(comments) 22 

**(Header information) 44 

$$$$$disk area 19, 61 
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Memorandum To: Users of IBM 1130 Disk Monitor 
Programming System, 
Card Input, 1130-0S-005 


Subject: Error in Version 2, Modification Level 6 


Four (4) REQ cards were erroneously included in the 
System Loader deck following the SCON card 
(ID/Sequence Number G0000001). Replace these with 
REQ cards which reflect your configuration. 


The Load Mode Control Card which follows card 
DP105063 contains an Rin column 14. If you are 
using RPG, this column must be changed to a blank 
before performing the reload to install modification 
level 6. 
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